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subsystems^  a  co"'pil'*r  which  generates  code  for  a 
hypothetical  ze ro-adaress  machine  and  a  run-time  monitor 
which  executes  fhis  code.  The  system  was  implementea  in 
PL/M  to  run  on  an  60bn  microcomputer  in  a  diskette-based 
environment  with  at  least  dOi^    bvtes  of  user  storaae. 
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I.   INTPOOUCTION 


A.   HISTORY  OF  ALGOL 

The  definition  of  the  aloopithinc  lanauaqe  (ALGOL -60) 
was  the  result  of  the  work  of  a  committee  of  distinauished 
COmDuteP  scientists  ard  was  originally  oublished  in  I^oO 
nil  .  The  purpose  of  the  a^velopers  of  ALGHL-bO  was  the 
estaolishment  o^  a  universal  comouter  lanouage  soecifically 
assigned  to  allow  for  the  lonical  and  efficient  orogram 
representation  of  algorithms.  Additional  versions  and 
extensions  of  ALGOL-bO  such  as  aLGGL-68  L151  and  ALGOL-v^/ 
llbl  have  b^en  develooed  and  have  founa  acceptance  orimari  Iv 
in  the  acaaemic  communities  and  in  Eurooe.  The  I anquage 
ALGOL-t  UOl  is  also  hased  on  ALGOL-oO  ancj  was  develooed  as 
part  of  a  complete  svs*"em  desionpd  tor  teachino  orogrammina 
1  anauage  concepts. 

6.   MTCRuCOf^PUTFK  SOFT/.AKE 


The  rapid  development  of  microcomputer  hare ware  since 
i^ys  has  oeneraMv  resulted  in  a  considerable  lag  in  the 
corresponding  aevelopment  of  compatible  software* 
particularly  tha»"  o^  hioh  level  lamuages.  The  Intel  dObO 
microorocessor  is  one  o'^  ♦"hp  -^ew  -microprocessors  whicn  has 
enoureo  long  enouah  to  oermit  software  development  to 
advance  oeyonri  ^ne   assembly   lanouage   level.    Hiah   level 


languages  which  have  been  develooea  for  8080  based  systems 
bv  students  at  the  Mava1  Postqraduat-e  School  include  a  macro 
assembler   (ML-*'0)   Hi),  a    6ASTC    como  i  1  e  r  /  i  n  t  e  np  re  t  er 

(BASIC-E)  lb],  and  a  COROL  como i 1 e r / i n t e rp re t e r  rMTC^O- 
COBOL)  12)  ,  The  ma.iofity  of  hiah  level  lanquages  currently 
available  for  m  i  c  roccmpuf  e  r  based  systems  arr^  extensions  of 
the  oriqinal  Dartmouth  RASIC  and/  although  they  allow  for  a 
reasonable  level  of  nrogra'^mino  sophistication,  they  are 
encumbered  by  the  inhTent-  limitations  of  the  BASIC 
1  anauaqe  constructs. 

C.   OPJFCTIVES  OF  ALGCL-VI 


The  major  object'ive  of  t- h  i  s  oroiect  was  to  develop  a 
dynamic^  Dlock-struc'"ured,  recursive  nigh  level  language 
whicn  would  provide  adeauate  programmina  oower  and 
flexibility  for  anplications  rrogrammina  ijsinq  ""icrocomouter 
based  svstems,  ALGOL  cons'"ruc'"s  were  chosen  because  of 
their  simplicity  anc  power  and  b*=»cause  it  was  possible  to 
write  the  grammar  in  LALRM)  -^orm  for  use  with  available 
compiler-compiler  oenerated  rarse  tables  M'4].  ALGOL- ^"^  was 
developed  to  run  on  6080  based  microcomputer  systems  because 
of  the  availability  of  a  high  level  svstem  develooment 
language  (PL/^)  [PJ  whicn  produces  80^0  object  code  and 
which  could  be  run  on  the  "^'ava^  Postaraduate  School's  IB*^ 
360.  The  availaoilitv  o^  an  8080  b^seo  disk  operatinq 
system  CCP/:^)  L131  simulator  on  tne  IBM  36U  was  also  a 
stronq  factor  in  the  choice  o^  80^0  microorocessor  and   CP/M 
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TI.   ALGOL-M  LANGUAGE  OESCRIdTTUN 


A.   FEATURES  OF  THE  ALGOL-M  LANGUAGE 

Although  ALGOL-^-^  was  modeleH  after  ALGOL-60,  no  attempt 
was  made  to  mafee  it  a  formal  subset  of  ALGOL-60.  This  was 
done  intent  ionaHv  in  order  to  rrovide  a  languaae  which 
would  oe  best  suited  to  the  ne-^as  of  applications 
proarammers  using  microcomputer  systems.  however/  the  basic 
structure  of  ALGOL-M  is  similar  enouah  to  ALGOL-60  to  allow 
sinriple  conversion  of  proarams  from  one  1  anquaae  to  the 
other.  This  was  consiaered  particularly  imoortant  in  view 
of  tne  fact  that  the  standaro  oublication  lanquage  is 
ALGOl-60.  Therefore^  tner^  e«ists  a  large  source  of 
aoplications  orograms  ana  library  procedures  which  can  be 
simply  converged  to  execute  unaer  ALGOL-N". 

1.   Type  Declarations 

ALGOL-M  supoorts  three  tyoes  of  variables:  inteoers^ 
aecimals/  and  strings.  Tn^eoers  may  be  any  value  between 
-lbr33^  and  •t-lbf5^'->.  Decimals  mav  be  aeclared  witn  uc  <■  o  IB 
digits  of  precision  and  strinos  may  oe  declared  as  long  as 
255  characters.  The  cefault  crecision  for  decimals  is  ten 
digits  and  the  default  length  for  strinas  is  ten  characters. 
Decimal  and  strina  variable  lenot^s  may  be  integer  variables 
which  can  be  assianed  actual  values  at  run-time. 

Another  form  of  aeclaration  in  aLGUL-^  is  the  array 
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declaration.  Arrays  rray  ha'^f^  up  to  25S  aimensions  with 
each  dirnension  ranqinc  from  -!ci»3^^  to  +16^38 'J.  The  maximum 
8080  microDTOcesor  address  soace  of  64k  oytes  limits 
practical  array  sizes  to  somethina  smaller  than  the 
maximum.  Dimension  bounds  may  be  integer  variables  with  the 
actual  values  assigned  at  run-time.  Arrays  may  be  oi  type 
integerr  decimal  or  strino. 

2.  Arithmetic  Processing 

Integer  and  binary  coded  decimal  arithmetic  ar^^ 
supported  under  ALGCL-M.  Tnteaers  may  be  used  in  decimal 
expressions  and  will  be  converted  to  'decimals  at  run-time. 
The  inteaer  and  decimal  comoarisons  of  less-than  (<)» 
greater-than  (>),  ecual-to  (  =  )»  not-e^ual-to  (<>")/  less- 
t han-o r-eaua 1  - 1 o  (<-)>  and  orea t er-t han-o r-pqua 1 -^ o  (>  =  )  are 
provided,  Add i t i ona 1 1 y r  the  looical  operators  AND/  OR  and 
NO  T  are    available, 

3.  Control  vStructures 

ALGOL- M  control  struc^^ures  consist  of  BEGIN  ^  E'^'0» 
FOR,  IF  THEN,  IF  THEN  ELSE,  I'^HILE,  CASE  and  GOTO  constructs. 
Function  and  procedure  calls  are  also  used  as  control 
structures.  ALGOL- M  is  a  block  stuctured  languaae  with  a 
block  normally  bracketed  ^^y  a  riP"GTi\  ana  an  END.  Blocks  mav 
be  nested  within  otner  blocks  to  nine  levels.  Variables 
which  are  declared  within  a  olocx  can  on  1 v  oe  referenced 
within  that  block  or  a  block  nested  within  that  block.  unce 
prooram  control  proceeds  outside  o*  a  block  in  which  a 
variable    has   o^en   declared,   tne   variable   may   not   oe 
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referenced  and^  in  factf     run-time   storage   space   for   that 
variable  no  lonaer  exists. 

Functions/  when  called/  return  an  inteaer/  decimal 
or  strina  value  decenainn  on  tHe  tyoe  of  the  function. 
Procedures  do  not  return  a  value  when  calleo.  Both 
functions  and  orocedures  may  have  zero  or  more  parameters 
which  are  call  by  value  and  both  may  be  called  recursively. 
Additionally/  functions  and  procedures  may  be  referenced 
before  they  are  declared. 

4  .   Input /Ou  tout 

The  ALGOL-M  »\PITe  statement  causes  output  to  the 
console  on  a  new  line.  The  aesir«»d  outout  is  scecifiea  in  a 
write  list  whic'^  is  enclosed  in  parentheses.  String 
constants  mav  be  usee  in  a  write  list  and  are  characterized 
oy  beina  enclosed  in  ouotation  -"arks.  Any  comoination  of 
integer/  decimal  anc  strina  variables  or  expressions  may 
also  be  used  in  a  write  list.  A  "'RTT!:ON  statement  is  also 
available  which  i?  essentially  the  same  as  the  WHITE 
statement  except  tnat  outout  continues  on  the  same  line  as 
the  outout  from  a  previous  'JRITE  or  aPITEON  statement.  *\hen 
a  total  of  '^O  characters  have  ceen  written  to  tHe  console/  a 
new  line  is  started  automatically.  A  TAB  ootion  may  also  be 
used  in  the  write  list  which  causes  the  followinc  item  in 
tHe  write  list  to  oe  spaced  to  the  right  by  a  soecifed 
amoun t  . 

Console  input  is  accomplished  by  th^  PE^D  statement 
followed   by   a   reao   list   of   any  comoination  of  integer/ 
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decimal  and  strina  variadles  enclosed  in  oarentheses.  if 
embedded  blanks  are  desired  in  t^^e  inout-  tor  a  strina 
variable/  the  console  input  must  he  enclosed  in  auotation 
marks.  ^  RFAO  staten'ent  will  result  in  a  Halt  in  orogram 
execution  at  run-time  until  the  input  values  are  tyoed  at 
the  console  and  a  carr^^ae  return  is  sent.  If  the  values 
typed  at  the  console  '▼•atch  t-he  read  list  in  number  and  typer 
ppoqram  execution  continues.  Tf  an  error  as  to  number  or 
type  of  variables  from  the  console  occurs,  program  execution 
is  again  halted  until  values  are  re-entered  on  the  console. 

5.   Disk  i^ccess 

ALGHL-M  pronrams  may  read  data  from/  or  write  data 
tO/  one  or  more  diSK  files  which  may  be  located  on  one  or 
more  dis<  drives.  '"ihen  file  inout  or  outout  is  oesired/ 
the  appropriate  READ  or  ^(PJTE  statement  is  modified  ov 
placing  a  filename  icentifier  immediately  a  f  ♦"  e  r  KFAf)  or 
Ti9lJE*  The   actual  name  o^  the  file  may  b**  assioned  to  the 

file  name  identifier  when  the  proaram  is  written  or  it  may 
be  assigned  at  run-time.  Various  disk  drives  are  ref'^r^nced 
Dy  the  letters  A  through  Z.  '>  soecific  arive  mav  oe 
soecified  ov  prefixino  the  actual  f i 1 »  name  with  the  desired 
drive  letter  followed  by  a  colon.  Additionally/  if  random 
file  access  is  desired/  t*^e  *ile  name  identifier  may  be 
followed  by  an  integer  constant/  variable  or  expression 
enclosed  in  parentheses.  This  integer  value  specifies  the 
record  within  the  file  wnich  is  to  he  used  for  innut/output. 
Prior  to  the  use  of  a  file  name  identifier  in  a  KFAD 
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or  WRITE  statemenf/  the  file  name  identifier  niust  aopear  in 
a  file  declaration  state'^ent.  The  file  name  identifier  can 
only  be  referenced  w  i  ♦■  h  i  n  the  same  block  ''or  a  lower  blor<) 
as  the  file  declaration.  Filps  are  normally  treated  as 
unolockea  sequential  files.  However^  i -^  blocked  files  ara 
aesiredf  the  record  length  may  ootionally  be  srecified  in 
parentheses  after  the  file  nafr^e  identifier  in  the  file 
declaration  statement. 


ITI.   IMPLEMENTATION 


A.   COMPILER  IMPLEMENTATION 

1.  Compiler  0 raan i za t i on 

The  comoiler  was  rJesinned  to  reaH  source  1  anauaqe 
sfatennents  frorr.  a  ciskett"e  ana  to  oroauce  an  intermediate 
1  anauage  file  w  i  t  "^  ootional  source  Hstina  at  the  console. 
A  two  pass  approach  was  used  to  facilitate  the 
implementation  of  GOTO  statement's^  forward  subroutines^  and 
control  statements.  Pass  one  builds  the  symbol  table  and 
saves  all  branch  locations  for  resolution  durina  pass  two. 
Pass  one  also  computes  the  size  of  the  program  reference 
table  (PPT)  and  writes  this  information  out  to  th*» 
intermediate  file.  Pass  two  resolves  all  forward  references 
and  emits  code  to  the  i  n  t  e  r-^ed  i  a  t  e  file  on  disk. 

2 .  Sc  anne  r 

The  scanner  analyses  the  source  prooram  ana  sends  a 
sequence  of  tokens  to  t*^e  parser.  In  adaition,  ^he  scanner 
provides  a  listing  of  the  source  file  (if  requested), 
ianores  remarks,  and  set's  the  comniler  toggles.  Analysis  of 
the  first  non-olanK  character  in  the  inout  file  aetiori^ines 
the  general  class  of  the  next  token.  The  rest  o'^  ♦"hp  token 
is  then  scanned  as  it  is  placed  into  the  accumula'"or 
(ACCU^J.  The  first  byte  of  ACC"'^  contains  the  length  of  the 
to<en.   In  the  case  of  const-ants  fhat   exceed   fhe   size   of 
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ACCDM  (3c?  bytPs)  a  continuafion  f  1  aa  is  set:.  This  oermits 
the  scanner  and  oarser  to  continue  as  necessary  to  accept 
the  entire  constant. 

l^hen  the  scanner  recognises  an  identifier  it 
searches  the  vocabulary  table  fVOCAb)  to  aetern^ine  if  the 
identifier  is  a  reserved  word.  If  found,  the  token  number 
associated  with  the  reserved  word's  position  in  the  VOCAB 
table  is  returned.  The  reserved  word  COMMENT  is  a  special 
case  since  it  is  not  part  of  the  gran^mar  ana  is  hanoled 
entirely  by  the  scanner.  The  VOCAB  table  is  one  of  ♦ine 
taples  provided  bv  the  LALRfl)  oarse  table  generatorLlul, 

Constants  are  passed  unconverted  f  roi^  the  scanner 
through  the  oarser  tc  the  intermediate  f  i  1  <» .  Aithouch  this 
procedure  does  not  allow  constant  chpcl<ing  during  ccrtpile 
time/  it  does  save  soace  in  th**  compiler.  The  conversion 
routines  rrust  oe  in  the  run-time  system  for  console  incut 
and  their  auplicaticn  in  the  co^^piler  was  not  considered 
necessary . 

3  .   Symho 1  Table 

The  svmbol  table  stores  attributes  of  program  and 
compiler  generated  entities  such  ss  identifiers*  proceaures, 
and  labels.  The  symbol  table  is  constructed  durina  oass  one 
and  the  stored  informa^'ion  is  used  by  the  compiler  durina 
pass  two  to  verifv  tnat  the  proaram  is  cemantically  correct 
and  to  assist  in  code  oeneration.  Access  to  the  symbol 
table  is  accomclishec  thp'^uoh  various  subroutines  which 
ooerate   on  the  svmbol  table  tnrough  the  use  of  based  global 
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variables. 

The  symbol  table  is  modeled  a'^ter  tHe  B^SIC-E  svmbol 
table  fbl.  It  IS  an  unordered  linear  list  o^  entries  which 
grows  toward  the  too  of  meiiorv.  Individual  entries  are^ 
accessed  via  a  chained  hash  addressing  techniaue  as 
illustrated  in  P'inure  1.  Each  location  in  the  hash  table 
heads  a  linked  list  whose  printnames  all  evaluate  to  the 
same  hash  address.  If  there  is  a  ^ero  in  the  hash  table 
then  there  are  no  entries  ^or  that  particular  hash  value. 
During  references  to  tne  symbol  tab'e/  the  global  variable 
PPINTNAME  contains  the  address  of  a  variable  whicn  contains 
the  lenoth  of  the  variable  name  followed  by  the  name  itself. 
The  variable  SY^hASH  contains  the  sum  of  the  '^SCil 
characters  tnat  make  uo  the  variable  name/  ro'^lulo  64, 
Entries  which  hash  to  the  same  va'ue  are  chained  so  that  the 
latest  entry  is  the  first  one  on  the  chain.  They  arsf 
however^  stored  in  the  svmbol  table  in  the  oroer  in  which 
thev  appear  in  the  orogram. 

Each  entry  in  the  svmHol  table  contains  tne 
following  information: 


lenath  of  printnaf^e 

collision  field 

print  name 

t  ype 

add  ress 

block  level 

subt  yre 


1  byte 

2  bytes 

variable  1 ena  t  h 

1  byre 

P  bytes 

t  byte 

1  byte 


18 


SYMBOL  TABLE  STRUCTURE 


SYMBOL 
TABLE 


HASH  ARRAY 


28 


COLLISION 
FIELD 


^COLLISION 
FIELD 


TWO  ENTRIES 
WITH  SAME 
HASH  VALUES 


FIGURE  1 


19 


The  address  field  indicates  the  identifier's 
position  in  the  PPT  unless  the  ident-ifier  is  a  label.  Fo'' 
labels^  it  indicates  the  laoel's  position  in  the  coae  area. 
For  subroutine"?/  there  are  t'wo  extra  sytiCiol  t^ble  entries: 
a  parameter  field  which  indicates  the  number  of  paramet'^rs 
associated  with  the  subroutine  CI  bvte)#  and  another  aadress 
field  which  inaicates  the  position  of  the  subroutine  in  the 
code  area . 

Since  ALGOL-M  is  coT-pletely  olock  structured,  there 
is  a  block  nuTiber  associated  with  each  identifier  in  tne 
symbol  table.  4  "previous  bloci^  level  stac^f"  was  designed 
in  order  to  retain  t^e  symbol  table  for  oebuqcing  purooses 
durina  run-ti^^e.  Eac*^  active  block  is  used  as  an  inaex  into 
this  stack  which  contains  all  clocks  to  which  the  active 
block  is  subordinate.  When  a  block  is  deactivated  (i.e., 
the  corresoondinn  block  end  is  encountered)/  thp  block 
number  is  removed  from  tne  previous  bloc<  stack  and 
therefore  any  identifiers  associ^t^d  with  that  block  oecome 
i  naccess  i  b 1 e . 

'■Two  different  lookuo  routines  w^re  designed  to 
facilitate  symbol  table  lookup.  The  first  is  FuLLSLOQKUP 
which  searches  the  current  block  and  all  outer  blocks  for  an 
identifier.  The  second  is  NOPM.iL'''LnOKUP  which  dimply  checks 
the  current  clock  lev^l.  In  most  cases,  FuLL '^^lOUKUP  is 
used  to  determine  if  an  identifier  beina  used  has  Peen 
declared  and  NORMAL  ^LOOKlip  is  used  to  determine  if  an 
identifier  being  declared  ♦'as  been  previously  declared  in 
the  same  block  level. 
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4 ,   Parser 

The  LALR  oarser  is  ^nodeled  after  fhat  o*  th*?  BASIC-P 
parser  (bl/  which  is  a  t  ah  ]  e-d  r  i  ven  pushdown  aut■0""a^o^,  1 1 
receives  tokens  from  the  scanner  and  analyzes  them  to 
determine  if  they  are  part  of  the  ALGOL-M  grammar.  »"«hen  trie 
parser  accents  a  token/  one  of  the  following  actions  will 
be  taken.  It  mav  save  the  token  and  continue  to  accept 
tokens  in  the  lookahead  stafe^  or  it  mav  recoanize  the  rioht 
part  of  one  of  the  valid  productions  and  aoply  the 
production  state  Ccause  a  reduction  to  take  place).  Finally 
the  parser  mav  aetermine  ♦•hat  the  tokens  received  ao  not 
form  a  valid  riant  oart  for  a  production  in  the  grammar  and 
cause  a  syntax  error  to  oe  orin'-ed. 

ir'i/hen  an  error  is  detected  kECOvEk  is  callea  ana  the 
parser  oacks  uo  a  state  wi^h  an  atte'^ot  to  con<-inue  parsina 
from  that  state.  If  ^his  failsr  it-  continues  to  oack  un 
until  the  end  of  fne  currently  oendina  reduction  is  reacned. 
At  that  point  the  Paa  token  is  byoassea  ana  an  attempt-  to 
parse  the  follow  ina  toke^  is  maae  until  an  acceptable  ♦"oken 
i  s  found . 

The  major  data  structures  in  the  parser  are  the 
LALP(1)  parse  taples  and  the  parse  stacks.  The  parse  stacks 
consist  of  a  state  stack  and  six  auxiliary  stacks.  These 
auxiliary  stacks  are  parallel  to  the  oarse  stack  and  are 
used  to  store  informa^ion  needed  during  code  Generation, 
The  information  stored  in  these  stacks  includes  variable 
typeS/  subtvp*»S/   and  variable  addresses. 
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5.   Code  Generation 

The  parser  not'  only  verifies  the  syntax  of  source 
s  t  at  efTien  t  s  /  but  also  controls  code  oeneration  by  associatina 
semantic  actions  with  reductions.  '/I hen  a  reduction  takes 
placer  the  procedure  SYMTHtSIZE  is  called  with  the 
production  nurrber  as  a  parameter,  SYNTHfcSIZE  cooies  the 
needed  semantic  infcrmatinn  from  the  parse  stacks  into 
simple  variables  (to  avoid  extensive  subscrintino)  and 
performs  the  aporopriate  serrantic  action.  This  is 
accomplished  by  the  use  of  a  larqe  case  stateTent  with  rhe 
production  number  as  a  kev.  The  syntax  of  the  languaae^ 
along  with  the  semantic  actions  taken/  is  listed  in  Appendix 
E. 

B.   PJTERPRFTER  I^PL  t^'E^'T  A  T  TOM 

1.  Building  the  4i.nOL-M  Pseudo  N'achine 
The  ALGOL-M  pseudo  i^^achine^  as  shown  in  Fioure  ^  f 
is  a  software  emulation  o^  a  stac<-orien^ed  CP'J  wi^n  an 
instruction  set  which  is  particularly  well  suited  for 
execution  o^  ALGOL-M  programs.  Th<=»  ALGOL-M  interpre^er 
is  loaded  at  address  100  hex  (as  are  all  executable  proarams 
under  the  OP/M  ooerafing  systeml  and  proceeds  to  r^^.s^r^  the 
ALGOL-M  intermediate  code  from  disk/  cons  ♦■  rue  t  i  ng  the  pseuoo 
machine  beoining  at  the  first  ■^ree  memcry  location.  The 
ALGOL- M  int^^rmediate  code  is  read  into  a  bu'^fer  in  1c?^  ovte 
segments.  The  first  two  bytes  of  the  intermediate  code 
represent   an   inteoer   value   equal  to  the  number  of   bytes 
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to  be  used  for  the  orograT'  reference  table  CPRT).  Each  P'RT 
location  is  two  bytes  in  length  and  is  used  to  contain 
information  relative  to  ALGOL-M  prooram  identifiers*  arrays* 
and  subrout  i  nes . 

The  rerraininc  intermediate  code  is  manioulated 
in  accordance  »^  i  t  h  the  algorithm  shown  in  Figure  i  in 
order  to  construct  the  oseudo  machine  code  area, 

d »       Overview  of  the  Interpreter 

The  ALGOL- M  intercreter  uses  fhe  oseudo  machine  code 
area  as  incut  data.  Each  pseudo  machine  operator  is 
eauated  to  an  integer  value  which  is  evaluated  in  order  to 
provide  the  correct  entrv  point  into  a  large  case  statement 
in  the  interpreter.  Each  entry  in  the  case  statement 
contains  the  necessary  code  to  cause  proper  run-time 
execution  of  the  specific  ALGOL-N'  pseudo  instruction. 
The  case  statement  is  executed  continually  until  the 
ALGOL-M  orogra'"  has  been  completed*  at  which  time  control 
is  Passed  back  to  the  operating  svstem.  A  run-time  stack  is 
used  to  facilitate  the  execution  of  ALGOL- M  pseuao 
instructions.  The  stacic  can  b«»  viewed  as  being  two  bytes 
wide  and  exoanaino  or  contractina  aoove  the  ALGOL-M 
machine  code  area  as  necessary.  The  too  it**m  on  thp  stac'< 
is  addressed  by  the  variable  PA,  while  the  next-to-too  item 
IS  addressed  by  Rb.  Th«»  contents  of  the  two  t-ytes  on  too 
of  the  staci<  are  referenced  by  tr\e  variable  *KA  wnile 
the  two  byte  contents  of  t^e  next-to-top  stack  position  are 
referenced  by   the   variable   APB.    The   lo«    order    bvte 
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i. 
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STORE  BYTE  IN  CODE  AREA,  READ 
IN  ASCII  CHARACTERS  UNTIL  BINARY] 
ZERO,  CONVERT  TO  INTERNAL  FORM, 
STORE  IN  CODE  AREA 


STORE  BYTE  IN  CODE  AREA,  READ 
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contents  of  the  too  and  next-to-too  stack  locations 
are  referenced  by  the  variables  BRA  and  BKR 
resoec t i ve ] V .  The  various  stack  variables  are  depicted  \n 
Figure  ^. 

3,   Allocation  of  Storaae  Soace 

Wun-time  st-oraae  space  is  reouirea  for  the 
values  associated  with  AI.GOL-M  orogram  identifiers  which 
have  been  declared  as  integer,  deci-^al/  or  string  valufs, 
and  for  information  needed  <■  o  process  arravs  and 
subroutines.  A  sequef^tial  nurrber  is  assianed  to  each  new 
identifier  as  it  is  recognized  by  the  comniler.  This  number 
is  useo  to  reference  the  PRT  at  run-time  in  oraer  to  store 
or  retrieve  the  value  associated  witn  each  iaentifier. 

a  .   In  t  egers 

Integer  values  range  ^rom  -lo»iP4  to  +16, T 6^  and 
are  stored  direct^  in  the  two  bvt*»s  allocated  in  the  PKT 
for  integer  identifiers.  A  maximum  lenath  of  two  ovtes  for 
integer  values  was  chosen  because  the  resulting  ranne  of 
possible  inteaer  values  was  considered  adeauate  for  fhe 
primary  use  of  inteoers  as  oroqram  control  counters,  such  as 
array  subscrints  and  loop  boundaries.  Aad i t i ona 1  1 y  ,  two- 
bvte  values  were  the  most  convenient  size  to  work  with  in 
the  implementation  i  anguaoe  PL/'^  f81  ,  The  hioh  oraer  oit  of 
the  integer  representation  is  the  sign  bit,  with 
zero  indicating  a  positive  value  and  one  indicating  a 
negative  value.  The  second  oit  o^  ♦'h^  int-eoer 
representation   is    alwavs    zero    in   order    to    permit 
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differentation  between  integers  and  other  tvPes  on  the 
stacK.  The  ALGOL-I^i  internal  form  for  addresses  is  also  a 
two  byte  value. 

b.   Decimals 

Decimal  values  up  to  15  dioits  in  length  are 
permitted  in  the  ^LGOL-M  lanquaae.  Each  rtecimdl 
identifier  is  associated  with  a  uniciu«»  PRT  entry.  Th»  value 
stored  in  the  two  ovte  P^T  entry  represents  the  run- 
time address  of  the  location  on  the  ALGOL-'^  stack  where 
the  actual  aecimal  value  is  stored.  T^e  format  for 
aecimal  storaae  is  shown  in  Figure  6. 

The  next-to-last  byte  of  t'^e  allocated  space 
for  decimal  iaentifiprs  contains  the  number  of  ovtes  used 
for  storage  of  that  value.  This  value  is  a  function  of  the 
size  declared  for  t*^e  decimal  bv  the  oroqrammer  and  may  be 
aelayed  until  run-time.  A  "-aximu^  of  1^  diaits  o^ 
precision  may  oe  declared  with  the  default  orecision 
being  ten  aigits.  The  first  byte  of  the  aecimal  storage 
area  contains  a  value  r^oresen t i no  the  number  of  bytes 
used  to  hold  tne  actual  oacl^ed  dioits.  This  value  mav  be 
less  than  the  number  of  bvtes  w^ich  could  oe  stored  in  the 
allocated  area.  Tn  order  to  save  storaae  soace/  tne  decimal 
values  are  oac<ed  two  aigits  rer  byte  of  storage  space. 

ALGOL-M  is  a  dIock  structured  1 anguaae  based 
uoon  a  stacif  Tiodel  for  execution.  Thusr  it  allows  effici*=»nt 
allocation    of     storage    for  decimal   i  de"^  t  i  f  i  e  r  s  .    A 

clock    IS    normally    brac<eted   by   tne   ALGOL- H  keyworas 
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BEGIN 

INTEGER  A,B; 
A    :=    3; 
B    :=    -2; 
END 
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.  1 
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00000000 
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BEGIN 

DECIMAL (12)  X; 

X  :=  123456.78; 

END 
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BFGIN  and  EMO.  Blocics  mav  be  embedded  within  a  higher 
level  block  as  shown  in  Figure  7.  Identifiers  which  are 
declared  in  a  given  clock  are  considerea  local  to  that 
block  ana  global  to  any  lower  lever  clock  ana  therefore  n^av 
be  referenced  froT"  those  blocks.  However,  once 
execution  o^  an  &LGOL-'^  orogram  oroceeds  beyond  a  given 
bloc</  the  identifiers  aeclared  within  that  block  may  no 
longer  be  referenced  and/  in  fact/  t-ne  storage  allocated  ^or 
those  identifiers  is  removed  from  the  ALGOL- tM  machine 
stack. 

c  .   5t  r  i  nas 

Strinas  of  ASCII  characters  uo  to  B5b  bytes  in 
lenath  ?ire  per^ited  in  ALG^L-M.  In  th^  same  manner  as  used 
for  decimal  storaae*  thp  strina  identifier  is  associated 
with  a  unigue  ^RT  entrv.  The  co r resoong i ng  PRT  entry 
contains  tne  aadress  nf  the  actual  string  storaae  space  o^^ 
the  ALGGL-*^  stack.  Th*»  format  for  string  storage  is 
shown  in  Fiaure  6.  [he  next-to-last  byte  of  the  allocated 
storaae  soace  for  a  strina  identifier  contains  the  value  of 
the  number  of  bytes  actually  aMocated  hy  the  proorammer  un 
to  a  maximum  of  ^S5  bytes.  The  first  byte  of  the 
allocated  strina  storage  area  contains  the  value  of  the 
actual  number  of  ASCII  characters  stored  in  the  allocated 
ares.  The  concept  of  storaoe  allocation  as  related  to  block 
levels  is  the  same  as  described  for  decimal  identifiers. 


31 


BLOCK  LEVEL  0 
BLOCK  LEVEL  1 
BLOCK  LEVEL  2 


->-BEGIN 

DECIMAL  A,B,C; 

>  BEGIN 

STRING  X,Y,Z; 

^  BEGIN 

DECIMAL  C,D,E; 


END  BLOCK  LEVEL  2  - 
END  BLOCK  LEVEL  1  - 
lND  BLOCK  LEVEL  0  ->  END ; 


->  END; 


-^  END; 


LEVEL   ADDRESS 


RA^ 


STACK 


RB^ 


U 


STORAGE  FOR 
BLOCK  LEVEL  2 


STORAGE  FOR 
BLOCK  LEVEL  1 


STORAGE  FOR 
>  BLOCK  LEVEL  0 


BLOCK  LEVELS  AND  STACK  STORAGE 


FIGURE  7 


32 


BEGIN 

STRING (9)  TESTWORD; 

TESTWORD  :=  "HELLO"; 

END 
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d .   Arrays 

ALGOL-M  arravs  may  be  of  type  integerf 
decimals  or  string.  Arrays  may  consist  o^  up  to  ?b5 
dimensions  with  each  dimension  containinn  uo  to  l^f36^ 
elements.  The  uoper  and  lower  bounds  of  each  dimension 
may  consist  of  any  positive  inteaers*  vari ablest  or 
arithmetic  exDr*»ss  i  ons .  Facn  array  name  is  associated 
with  a  unique  PPT  entry.  The  PRT  entry  contains  tne  address 
pointer  to  the  actual  arrav  storage  area  on  the  ALT^OL-^^ 
machine  stac<.  The  first  part  of  the  array  storaoe  area  on 
the  stack  consists  of  the  displacement  vector  and  other 
information  which  is  necessary  to  calculate  the  address 
of  any  specific  array  element  at  run-time.  The  format  for 
array  storaoe  is  shown  in  P'ioure  ^.  The  allocated  storage 
area  for  each  arrav  element  is  exactly  like  that  usea  ^or 
integers/  decimals^  or  strinos  which  are  aeclared  as 
single  identifiers.  The  algorithm  used  ^or  calculate  no  the 
displacement  vector  is  expressed  as: 


Dr  -    j(u^,i  -Lx.i.  vi)'Di^i 


where  N  is  the  number  of  dimensions/  I  is  the 
respective  dimension/  and  ii  is  t^^e  uoper  Douna  ana  L  is  the 
lower  bound  of  a  di""ension. 


The  offset  vector/  V/  is  calculated  bv: 
The  offset  vector  reo'^esents  the   correction   necessary   for 


non-zero-o r i q i n  suoscriots.  This  approach  to  locating 
elements  in  oynamically  aeclared  arrays  is  essentially  tne 
same  as  that  used  in  alGQL-F  noj. 
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4.   Storaae  and  Retfieval  of  Variables 

Once  allocation  of  storage  for  variables  has 
been  ccnpleted  at  run-t  i  fve  r  storaqe  and  retrieval  of  actual 
values  is  relatively  sin^ple.  A  check  is  first  made  to 
insure  that  the  number  of  bytes  to  oe  stored  is  less  ti^an 
or  equal  to  the  storaae  space  allocated  for  a  aiven 
variable.  In  the  case  of  stringsr  if  the  destination 
storaae  space  is  not  lame  enough  to  hold  the  entire 
string/  as  many  characters  as  oossiole  are  stored  and  a 
run-time  warning  message  is  issued  advisino  that  string 
overflow  has  occurrea.  P"or  decimal  storage^  if  '"he  tofal 
number  of  packed  digits  to  be  scored  is  larger  tnan  tne 
available  storage  space/  non-significant  a  i  gits  ?ir^  deleted 
until  the  decimal  value  can  oe  stored.  If  a  sianificant 
digit  must  be  delef'ec  in  order  to  stor^  a  decimal  valuer  an 
error  messaae  is  ae^er  a^  ed  and  fhe  stored  decimal  value 
is  aroitrarily  set  to  1.0  to  allow  continuation  of  orogram 
execution. 

Array   elements  ar*?  storea    exactly     as     the 

corresponding  single  element  variables.  However/  thp 
data  located  at  the  heainnina  of  each  array  storage  area 
(refer   to   Figure  9)  is   used  to   calculate   '"he   actujal 

location  of  a  soec i f i c  arrav  element.  This  is  accomclished 
by  initializina  the  offset  variable  to  the  value  of  tne 
rightmost  suDscrioted  value.  This  value  is  then  acded  to 
the  product  of  the  next  rightmost  suDscriotea  value  and  the 
n-1  displacement  vector  value.  "''his  procedure  is  continued 
until  the  lef<"-most   subscrioted   value   has   oeen   user)   in 
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the  calculation.  Next  th^  offset  vector*  v  f  plus  onef  is 
suDtracted  fro'*'  the  offset  variable  and  the  result  is 
multiplied  by  the  size  of  ♦"he  area  allocated  to  each  array 
element.  The  result  of  this  calculation  is  the  total 
offset*  in  hytes/  frorr  the  beginning  of  the  storage  area 
for  the  array  ♦■  o  t^e  specific  array  element  in  question.  A 
check  is  made  to  insure  the  calculated  total  offset  is 
not  areater  than  the  offset  which  would  result  in  access  to 
the  last  arrav  element.  An  error  message  is  qenerated  by 
the  interoreter  if  a  <;uhisc  r  i  p  t  ed  variable  is  referencea  with 
suDScriots  that  are  no^  witnin  the  declared  array 
d i  mens  i  ons  . 

5.   Arithmetic  Operations 

Arithmetic  operations  for  inteoer  variables  ^re 
s  t  ra  i  qh  t  forward  because  t*^e  i  mc  1  emen  t  a  t  i  on  lanauage*  PL/*^ 
l^l  r  orovides  all  of  the  necessary  two  byte  ar^^hmetic 
ooerations.  Therefore*  the  two  inteqer  values  which  are 
to  be  added*  subtracted*  multiplied*  or  divided  !ire  placed 
one  aoove  the  other  on  the  staci^  and  the  apnropriate 
routine  performs  the  necessary  arithmetic  ooera'"ion, 
replacing  the  oricinal  two  inteqer  values  with  the 
result  of  that  ooeration,  Th«»  resulting  value  is  then 
available  to  store  into  the  space  allocated  for  ar\  inteaer 
variable  or  fo  be  used  as  one  of  the  integer  values  for 
continued  arithmetic  coerations. 

Decimal  arithmetic  is  accomolished  dv  manipu latino 
oaci^ed   decimal    strinos*   each  ot  »vhich  is  loaoed  in  a  ten 
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byte  reaister  (two  Hicit-s  per  byte).  The  result  of  the 
decimal  arithnnetic  ODeration  is  stored  in  a  third 
register.  Decinnal  values  are  also  stored  in  the  packed 
decimal  form^  shown  in  Fioure  6.  Decimal  strinas  are  only 
unpacked  when  and  if  tney  are  written  to  aisk  or  console 
at  run-tin^e.  Decimal  addition  is  accomplishea  bv 
addina  the  two  reoisters/  subtraction  is  done  usina 
nines  complement  arithmetiCr  multiolication  is  done 
throuah  a  shift  and  add  algorithm,  ana  aivision  by  a  shift 
and  subtract  metnod.  After  the  aecimal  arithmetic 
operation  is  comoletedr  ♦'he  result  is  olaced  on  the  too  of 
the  stack  in  oreparation  for  a  decimal  store  operation  of 
use  as  a  new  value  in  a  continuina  alaebraic  exor^ssion. 


b,   Strinq  Operations 

The  ALGHL-M  ccmoiler  is  designed  to  hanole  strings 
uD  to  255  characters  in  length.  The  concatenation  operator 
allows  two  or  more  strings  ♦"o  be  co'^binea  to  oroauce  a  new 
strina  consistina  of  all  the  characters  contained  in 
the  original  string <;,  The  orocess  o^  concatenation  takes 
place  on  the  stack  with  strings  oeing  combined 
repeatedly  as  necessary  for  multicle  concatenations. 
The  result i no  strinc  is  then  available  for  storage  in 
the  space  allocated  t©  a  strina  identifier.  If  the  result 
o^  concatenation  orrduces  a  strino  wnich  is  lonaer  than 
the  allocated  storaae  spacer  the  st^'ing  is  truncated  as 
necessary  and  an  error  r^essaqe  is  issued  by  the  interoreter. 


7.   Subroutines 

There  are  two  tvpes  of  subroutines  in  ALGOL-^it 
functions  and  procedures.  The  only  difference  between  the 
two  is  that  a  function  returns  a  value  to  the  too  of  tne 
stack  while  a  proceoure  does  not.  Subroutines  are  fully 
recursive  ana  can  be  called  prior  to  their  declaration, 

a  .   Invocat  i  on 

A  subroutine  can  be  invoked  with  zero  or  .7ior«» 
actual  para^^eters.  The  actual  parameters  consist  of 
integer^  decimals  or  string  expressions  which  are 
evaluated  and  oassed  to  the  suoroutine  via  the 
execution  stack.  In  addition  to  parameter  values^  the  only 
other  information  needed  to  call  a  procedure  is  the 
procedure  address  in  th*>  code  are^.  Tne  actual  format  of 
the  stack  at  the  point  of  a  subroutine  call  is  inaicatea  in 
Figure  10, 

b,   Storaae  Allocation 

Storaae  for  variables  and  parameters  declared 
within  a  subroutine  is  allocated  on  the  stack  at  run-time. 
The  actual  parameters  ana  the  subroutine  call  information  is 
also  stored  on  the  execution  stack.  To  allow  subroutine 
call  by  value  and  to  save  memorvf  it  was  necessary  to  move 
the  actual  parameter  values  and  subroutine  call  information 
off  the  stac<  prior  to  alloca^'inq  storage  for  the  formal 
parameters  and  local  variables.  This  was  accomolished  by 
movina  them  to  the  too  of  availaole  memory.  Storage  can 
then   oe   al located   for  the  formal  parameters  on  top  of  the 
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stack  in  the  normal  manner.  This  move  was  accomplished 
through  the  S^v  ooeratof*  as  illustratea  in  Figure  11.  The 
SAV  operator  also  checks  to  determine  if  the  call  is  a 
recursive  call  and  if  sof  saves  the  oroceoure  control  block 
(PCBj  on  too  of  the  stack.  The  PCB  is  similar  in  structure 
to  that  of  ALGOL-EFlO],  Although  this  procedure  slows  aown 
the  execution  speed  of  the  interpreter/  it  was  considered 
more  important  to  save  memory  soace.  Storing  suoroutine 
values  on  the  stack  as  indicated  above  simplifies  the  de- 
allocation of  memory  at  the  end  of  the  subroutine.  This  is 
accomplished  by  simoly  removing  elements  from  the  stack  down 
to  the  appropriate  level, 

c.  Parameter  y^apoing 

Parameter  mapping  is  done  through  the  use  of  '"he 
SV2  operator  as  illustrated  in  Figure  \ ^ ,  The  operator 
copies  the  act'ual  parameter  information  at  tne  top  of  memory 
into  the  area  allocated  on  foo  of  the  stack.  The  PCR 
which  keeos  track  of  subrou^i'^e  variables  is  then  set  with 
pointers   to   the   current  parameter  values. 

d.  Functic^  ^eturn  Value 

Included  with  the  allocateo  are^  for  parameters 
and  local  variables^  there  is  an  additional  allocated 
area  for  the  return  value  of  functions.  The  function  name 
is  treated  as  a  simple  variable  within  the  function 
and  the  return  value  is  assioned  to  it.  This  value  is 
copied  to  the  top  of  the  stack  when  the  function 
returns. 
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e.   External  Functions 

The  ALGCL-M  grammar  suoport-s  external 
function  declarations  and/  although  they  have  not  been 
implemented*  their  desiqn  has  been  considered.  External 
functions  are  conceived  f o  be  ALGDL-M  intermediate  files 
which  could  be  declared  and  called  from  other  ALGOL-'"^ 
programs.  The  intermediate  code  for  tnese  files  would 
be  read  from  disk  bv  the  comoiler  and  inteqrated  into  the 
proaram  intermeaiate  code  as  if  the  external  subroutine 
had  in  fact  been  a  normal  proaram  subroutine.  The 
grammar  would  require  modification  in  order  to  allow  a 
subroutine   to   oe  compilea  by  itself. 

t.   Forward  References 

Forwara  suoroutine  references  are  suoported  dv 
simply  treating  all  undeclared  identifiers  as  forward 
subroutine  references  durino  oass  one  of  the  compiler.  If 
on  oass  two  these  references  havp  not  been  resolved*  then 
an  undeclarea  variable  error  is  generated  ov  the  compiler. 

g.   dui1t-in  Functions 

There  are  currently  no  built-in  functions  in 
ALGOL-M,  However,  their  i mo  1 ement at i on  has  Deen 
considered.  To  implement  huilt-in  functions*  a  si  mole 
modification  to  the  symbol  table  structure  woula  oe 
needed*  allowing  the  built-in  function  names  to  be  entered 
in  the  symbol  table  when  if  is  initialized.  There 
woula  De  an  ooerator  associatea  with  each  function  name  in 
the  symbol  table  wnich  would  indicate  the  run-time  action  to 
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be  taken.   This  operator  would   be   emitted   each   time   the 
built-in  function  was  referenced. 

8.   Input-Outout 

Two  basic  tyoes  of  input-outout  ''I/O)  are 
implementea  in  the  ALGOL-^  lanauage:  console  and  disk. 
Console  I/O  refers  to  the  device  which  is  being  used  to 
provide  commands  to  the  system,  tyoicalW  a  cathoae-rav 
tube  terminal  or  a  teletvop.  Input  is  accomplished  via 
ALGOL-M  orogram  READ  statements  and  outout  via  wPITt  or 
wRITEON  statements.  Tnteaer  a^d  decimal  values,  includina 
signs  and  aecimal  nointS/  are  converted  from  their 
internal  representation  into  ^SCII  characters  which  are 
provideO  to  an  ooeratinq  system  orint  routine  for  console 
outout.  String  variables  ana  constants  are  stored  in 
the  ALGOL-W  pseuac-mac  h  i  ne  as  ASCII  sfrinas  ana  are  sent- 
character  by  cnaracter  to  the  svs^em  orint  routine.  Console 
input  is  accomolishec  via  an  ooeratinq  system  routine  which 
reads  one  full  console  line  into  an  ALGOL-f"!  buffer.  Tne 
interpreter  examines  the  buffer  and  converts  the  ASCII 
characters  in  the  buffer  into  ''he  appropriate  AlHuL-'^ 
internal  decimal,  integer  or  strina  format.  The  inout 
value  is  then  stored  in  the  space  allocated  for  its 
variable  name . 

The  ALGOL-H  read  or  /jPITE  statement  for  dis<  I/O 
contains  the  name  of  the  disk  file  to  be  use<:!  and, 
optionally/  soecifies  the  ois^  drive  containing  that  file. 
The   default   arive   is   the  currently  1 oaged  oryye     C^l  .   An 
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additional  option  is  t-hat  any  soeci^ic  recora  on  the  file 
may  also  be  specified  in  the  ALGOL-M  PE.^D  or  WRITE 
statef^ent.  ^  file  declaration  staterrent  is  usea  to 
associate  file  iaentifier  names  with  a  specific  entry  in  the 
ALGOL-M  PRT.  At  run-time/  space  is  allocated  on  the 
ALGOL-M  stack  for  file  control  block  (FC9)  information 
necessary  to  interface  file  ODera<"ions  wit-h  the 
ooerating  system.  In  adaitiof^  to  t^e  FCPf  space  is 
also  allocated  ^or  a  12^  byfe  I/O  buffer  for  each  declared 
file.  The  routines  to  convert  packed  decimal  and  inteaer 
numbers  from  internal  fornn  to  ASCII  form,  and  vice-versa> 
which  are  used  for  writing  to  and  reaaina  from  disk  files 
are  the  same  as  those  used  for  console  I/O.  Any  number  of 
files  may  be  ooen  simultaneously  and  r  as  with  all  run- 
time storage/  t^e  soace  allocated  on  the  stack  for  file 
operations  is  recovered  when  t-he   block   is  exi^'ed, 

9.   ALGOL-M  Pseudo  Operators 

a.   Description  o^  Interpreter  Variaoles 

The  top  Item  on  the  ALGOL-M  stack  is  aadressed 
by  the  variable  R*  while  ♦■ne  next-to  too  item  on  the  stack 
is  addressed  by  the  variable  P8,  The  value  contained  in  the 
first  two  bvtes  addressee  bv  f'A  and  RB  are  referenced  bv  ♦"he 
variables  APA  and  APB  rescectively.  The  contents  of  the 
low-order  byte  of  AR,^  and  ARP  is  referenced  by  the  variable 
BPA  or  BRF>  respectively.  The  structure  o*  the  stack  is 
shown  in  Fiaure  ^.  Decimal  and  string  values  may  oe 
represented  on  th*  stack  by   an   aadress   which   yields   the 
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actual  storage  area  for  the  value/  or  by  the  ac^'ua]  value 
itself  storer)  as  ore  of  the  items  on  the  stack.  i«Nhen  a 
aecimal  or  string  value  is  stored  on  the  stack/  it  is 
referred  to  as  a  temporary  value.  Temoorary  values  are 
stored  on  the  stack  in  oreoaration  for  storage  into  the  area 
allocated  to  a  soecific  identifier,  or  for  use  as  a  value  in 
the  evaluation  of  an  exoression. 

The  ALGOL-M  comoiler  generates  various  pseuao 
operators  which  were  chosen  to  allow  effective  run-time 
execution  of  the  ALGOL -f''  oseudo  'machine.  Following  is  a 
list  of  the  oseudo  ooerators  and  a  brief  descript-ion  of  the 
action  taken  at  run-time  when  each  operator  is  encoun^'ered 
in  the  AlGOL-^  code  area, 

b.   Literal  DataR'eferences 

An  initial  check  is  Tiade  of  each  one  byte 
ooerator  in  the  code  area  in  order  to  determine  if  the  high 
order  bit  of  that  byte  is  set  to  one.  If  the  high  order  bit 
is  set  then  the  least  significant  1^  bits  of  that  bvte  and 
the  following  ovte  are  automatically  added  fo  the  address  of 
the  beainnino  of  ^ne  program  reference  table  and  placed  on 
top  of  the  stack.  *  cneck  is  then  made  of  the  second  bit  of 
the  original  byre  and  if  if  also  is  set  to  one  t-he  PRT 
address  now  on  too  of  the  stack  is  reolaced  by  thp  contents 
of  the  two  bvtes  coinred  to  by  thai"  address.  These  are 
referred  to  as  LIT  anc  LITLOD  ooerators. 

IMT:  (integer!.  The  follow  inn  two  byte  inteaer 
value  is  olacea  on  the  stack. 
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SIR:  (strina).  The  proaram  counter  is 
incremented  oast  the  following  string  constant  and  the 
adaress  of  the  next-to-last  bvtp  of  the  strina  constant  is 
placed  on  the  stack. 

OFCT:  (decimal).  The  proaram  counter  is 
incrementea  oast  the  following  decimal  constant  and  the 
address  of  the  next-to-last  bvt**  of  the  oecimal  is  olacea  on 
the  stack.  The  next-to-last  bvte  of  the  decimal  constant 
contains  the  offset  tc  the  ^irst  byte  of  the  constant  which 
in  turn  contains  the  value  of  the  number  of  bvtfs  in  which 
actual  decimal  digits  are    stored, 

I^l!  (load  a  one  byte  integer).  The  value  of 
the  foMowina  byte  is  converted  to  a  two  oytP  value  and 
placed  on  the  stack. 

L^2'  (load  a  two  byte  integer).  The  followina 
two  byte  value  is  placed  on  the  stack  in  reverse  order. 

c.   Allocation  Operators 

ALD:  (allocate  decimal).   Storage  for  a   decimal 

variable   is   allocated   on  the  stac<  and  the  adaress  of  ♦"he 

allocated  area  is  placed  in  the  P^  J  entry  for  the  specific 
dec  imal  variable. 

ALS:  (allocate  string).   Storage  for   a   strina 

variable   is   allocatea   on  the  stack  and  the  address  of  the 

allocated  area  is  placed  in  the  PPT  entry  for  tne  specific 
strina  variaole. 

ATOi  (allocate  intermediate  aecimal).   The   same 

action  is  taken  as  in  ALD  except  the  declared  aecimal  lenoth 
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is  left  on  foo  of  the  stack  in  oreparation  for  t-he  next- 
allocation  which  is  exoectea  to  immediately  follow  in  the 
code  area.  This  ooeratof  is  used  when  several  decimal 
identifiers  are    declared  in  a  sinqle  declaration  statement. 

AIS:  fallocate  intermediate  strina).  The  same 
action  is  taken  as  in  the  AID  operator  with  the  exception 
that  string  allocation  is  used, 

d.   Arithmetic  Operators 

ADI:  Tadd  integer!.  The  integer  values  of  the 
top  two  items  on  the  stack  are  reolaceo  by  their  intener 
sum . 

ADO:  (ado  decimal).  The  decimal  value  of  the 
top  item  on  the  stack  is  loaded  into  decimal  arithmetic 
register  zero^  and  the  value  of  the  second  item  on  the  stack 
is  loaded  into  decimal  arithmetic  register  one.  Thp  two 
arithmetic  registers  are  aaded  with  the  result  placed  in 
register  two.  The  orioinal  decimal  values  on  the  stack  are 
replaced  by  the  result  of  the  arithmetic  operation. 

S8I:  (subtract  integer).  The  second  inteaer 
value  on  the  stack  is  subtracted  from  the  integer  value  on 
top  of  the  stack,  both  values  are  removea  from  tne  stack  and 
the  result  of    the  operation  is  olaced  on  too  of  the  stack. 

SBO:  (subtract  decimal).  The  same  action  is 
taken  as  in  the  ADD  operator  exceot  the  second  item  is 
subtracted  from  the  top  item  on  the  stack. 

MPI:  fmultinly  inteaer).  The  same  action  is 
taken   as   in   the  SB!  operator  except  t  r^e    too  two  items  are 
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mu I t  i  o1  led. 

MPO:  fmult-iolv  decirr^alJ.  The  s-^me  action  is 
taken  as  in  the  ADO  operator  except  th*  top  two  items  are 
mu 1 t  i  p 1  i  ed . 

DVI:  ("divide  infeger).  The  same  action  is  taken 
as  in  the  SRI  operator  except  the  top  item  is  divided  bv  ^he 
second  it  em , 

DVD:  (divide  deci'T'al).  The  same  action  is  taken 
as  in  the  ADO  operator  except  the  top  item  is  divided  by  tne 
second  item. 

NEG:  Tnegative).  T^e  sign  o'^  the  decimal  or 
integer  on  too  ot  the  stack  is  chamed. 

CIl:  (convert  inteaer).  The  integer  on  i-op  of 
t^e  stack  is   replaced  by  jfs  decimal  eauivalent. 

CI2:  (convert  inteaer).  The  same  action  is 
tat«en  as  witn  CI1  except  the  integer  which  is  the  second 
item  on  the  stack  is  converted  to  a  decimal. 

LSSt  (integer  less  than).  The  integer  value 
(ARB)  is  compared  wit^'  the  inteaer  value  (ARA),  Poth  values 
are  removed  from  the  stack.  If  APB  was  less  than  AkA,  t-ne 
value  one  is  olaced  on  th«=»  stack/  otherwise  the  value  zero 
is  olaced  on  the  stack, 

DLSS:  (decimal  less  than).  The  decimal  on  too 
of  the  stack  is  compared  to  the  decimal  wnich  is  the  second 
item  on  the  stack.  i*  the  value  on  top  of  the  stack  is  less 
than  the  second  value  on  the  s^ack/  both  values  are  removed 
from  the  stack  and  reclaced  by  the  value  one^  otherwise  they 
are    replaced  by  the  value  z'^ro. 
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GTR:  (integer  greater  than).  The  same  action  is 
taken  as  in  the  LS3  ooerator  exceot  a  one  is  placed  on  the 
stack  if  AR8  is  greater  than  ARA. 

DGTR:  (decinial  oreaf  er  fhan).  The  same  action 
is  taken  as  in  the  f^LSS  ooerator  except  a  one  is  olacea  on 
the  stack  if  the  second  decimal  it'em  is  greater  than  the  too 
dec  i  ma  1  item. 

EQL:  (integer  eaual  to).  The  same  action  is 
taken  as  in  the  GTR  ooera^or  exceot  a  one  is  olaceu  on  the 
stack  if  ARR  is  eaual  to  ARA, 

DEQL:  (decimal  equal  t- o )  .  The  same  action  is 
taken  as  in  the  DGTR  ooerator  exceot  a  one  is  olaced  on  the 
stack  if  the  second  decimal  item  is  eaual  to  fhe  too  decimal 
item. 

NEQt  (integer  not  eaual  to).  The  same  action  is 
taken  as  in  the  EQL  ooeraf^or  exceot  a  one  is  olaced  on  the 
stack  if  ARR  is  not  ecual  to  ARA, 

DNEQ:  (decimal  not-  *»qual  ♦•o).  The  same  action 
is  taken  as  in  the  PEQL  ooerator  exceot  a  one  is  njaceo  on 
the  stack  if  the  second  d*='cimal  item  is  not  eaual  to  the  foo 
dec  i  ma  I  item. 

GEQ:  (integer  greater  than  or  equal  to).  The 
same  action  is  taken  as  in  the  NEQ  ooerator  exceot  a  one  is 
placed  on  the  stack  if  ARP  is  greater  than  or  eaual  to  ARA. 

DGEQ:  (decimal  areater  than  or  equal  to).  The 
same  action  is  take"  as  in  the  ONjEQ  operator  except  a  one  is 
placed  on  the  stack  if  fhe  second  decimal  item  is  oreater 
t^an  or  eaual  to  ♦"he  ♦'oo  decimal  item. 
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LEQ:  (integer  less  than  or  equal  to).  The  same 
action  is  taken  as  in  the  GFQ  ooerator  except  a  one  is 
placed  on  the  stack  if  ARR  is  less  than  or  equal  to  ARA. 

OLEQ:  (decimal  less  than  or  eoual  to).  The  same 
action  is  taken  as  in  the  DGFQ  ooerator  except  a  one  is 
placed  on  the  stack  if  the  second  decimal  value  is  less  than 
or  equal  to  the  top  decimal  value. 

NOT:  (boolean  not).  This  operator  changes  the 
result  of  any  previous  boolean  operator  oy  comp 1 emen t i no  the 
value  of  the  one  or  zero  which  was  olaced  on  the  stack  by 
the  previous  operation. 

AMD:  (boolean  and).  This  operator  checks  tne 
top  two  values  left  on  the  stack  by  any  two  previous  boolean 
ooerations.  Tf  both  values  are  one  then  both  values  are 
replaced  with  a  one?  otherwise  both  values  are  reolaced  with 
a  zero . 

OR:  (boolean  or).  This  ooerator  checks  the  too 
two  values  left  on  the  stack  by  any  two  previous  boolean 
operations.  Tf  either  value  is  a  one  then  both  values  are 
replaced  by  a  one?  otherwise  they  are    replaced  by  a  zero. 

e.   Strina  Operators 

CAT:  (concatenate).  The  two  strings  on  too  of 
tHe  stack  are  combineo  to  produce  a  new  strina  consisting  of 
the  Characters  of  the  s<»cond  strina  followed  oy  the 
characters  of  the  first  string.  The  two  original  stf'ings 
are  popned  from  the  stack  ?^nd  replaced  bv  the  resultina 
concatenated  string. 
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SLSS;  (string  less  than).  The  same  action  is 
taken  as  in  the  DLSS  op»»rator  except  that  a  character  by 
character  string  con^parison  is  made  using  the  ASCII 
character  collating  sequence. 

SGTR:  (string  greater  than).  The  same  action  is 
taxen  as  in  the  DGTR  operafof*  except  a  string  coT-parison  is 
made . 

SFQL:  (string  eaual  to).  The  same  action  is 
taken  as  in  fhe  HtOL  operator  except  a  strina  cc^parison  is 
made . 

SMEQ:  (string  not  eaual  to).  The  same  action  is 
taicen  as  in  the  DNEQ  ooefator  exceot  a  strina  comparison  is 
made . 

SGEH:  (string  greater  than  or  eaual  to).  The 
same  action  is  taken  as  with  DGEQ  except  a  string  comparison 
i  s  made . 

SLEQ:  (string  less  than  or  equal  ♦'o).  The  same 
action  is  taken  as  with  OLEQ  exceot  a  strina  comparison  is 
maae . 

f  .   Stack  Goerat  o  r s 

XCh:  ("exchange).  The  value  of  tne  top  two  bytes 
on  the  stack  (ARA)  is  exchanaed  with  the  value  of  tne  next- 
to-top  two  *^ytes  on  the  stackfARB). 

POP:  (pop  the  stack").  The  stack  oointer  CRA)  i^ 
moved  to  the  position  of  the  stackpointer  i^b)  and  Pti  is 
moved  to  coint  to  the  n^  x  f^  item  below  its  current  position 
on  tne  stack. 
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LCD:  (load).  The  address  value  on  the  stack 
CARA)  is  replaced  by  the  two  hytes  pointea  to  by  that 
address . 

DCB:  (decrement  block  by  more  than  one  level)! 
The  stack  pointer  (KA)  is  decremented  to  the  address  stored 
in  the  block  level  table  and  the  inaex  to  the  olock  level 
table  is  decreased  by  the  value  stored  in  the  next  two  bytes 
in  the  code  area.  The  stack  oointer  (RB)  is  moved  below  KA 
to  the  too  of  the  second  item  on  tne  stack, 

BLI:  ftlock  level  increment).  """he  index  to  the 
block  level  array  is  increased  by  one  and  the  adaress  o^  the 
top  item  on  the  stack  is  stored  in  the  block  level  array. 

BLO:  (block  level  decrement).  "''he  index  t- o  the 
bloCK  level  array  is  decreased  by  o^e  and  the  value  o '^  t'ne 
stacK  pointer  (PA)  is  changed  to  the  address  stored  in  the 
block-  level  array. 

Si^R:  (subtract  stac^  values).  This  operator  is 
used  to  Subtract  the  second  value  on  the  stack  from  the  too 
value  on  the  stack  usinn  unsioned  sixteen  bit  arithmetic. 
The  two  values  are  rf*placed  bv  the  result  of  tne 
suot  rac  t  i  on  . 

g.   Array  Ooerators 

RH^'i:  (allocate  arras/  «;torage).  The  number  of 
array  dimensions/  the  uooer  ana  lower  bounas  of  each 
dinnensionf  and  the  arrav  *'  voe  (inteoer,  decimal  >  or  string) 
are  used  to  calculate  the  array  disolacement  vector  whicn  is 
stored  on  the  stack  prior  to  allocation  of  storage   for   the 
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actual  array  elements. 

SU6:  (calculate  the  offset  to  a  specific  array 
element).  The  array  subscript  is  used  in  coniunction  with 
the  displacement  vector  inforiiation  stored  at  the  heainninq 
of  the  array  storaae  are^i  fo  calculate  the  adaress  of  the 
specific  arra'^/  element  being  referenced  Ov  the  subscripted 
variable. 

h.   Prooram  Control  Ooera^'ors 

BRS:  (oranch  absolute).  The  orogram  counter  is 
changed  to  an  address  one  less  than  the  address  represented 
by  the  foHowino  two  bytes  in  the  code  area. 

BRC:  (oranch  conditional).  If  the  value  on  too 
of  the  stack  is  zerc/  the  proaram  count«>r  is  chanaed  as  in 
bRS?  otherwise  the  orogra'"  continues  witn  the  next  operator 
in  the  code  a  rea . 

BPA:  (computed  branch  aosolute").  The  rrogram 
counter  IS  chanced  relative  to  the  start  of  the  code  area  by 
the  value  on  too  of  the  stack. 

XlT:  (e>fit  the  in»"eroreter).  xTT  caused  return 
of  control  to  the  ooerating  system. 

i  .   St-  ore  Ooerat  o  r  s 

STI:  (store  integer  intermediate).  The  inteoer 
value  which  is  the  second  item  on  the  stack  is  stored  in  tne 
PPJ  address  which  is  t-he  too  item  on  the  stac^.  The  PKT 
address  is  then  removed  frofn  t"he  stack. 

301:  (store  decimal  inter-T'ediate).  The  same 
action  is  ta<en  as  with  511  except  a  decimal  value  is  stored 
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in  the  allocated  area  pointed  to  by  the  address  on  too  of 
thestack. 

SSI:  (store  strina  inter'^'ediate).  The  same 
action  is  taken  as  in  the  SOI  ooerator  exceot  a  strinq  value 
i  s  stored. 

SID:  (store  integer  destruct).  The  same  action 
is  taken  as  in  the  SII  ooerator  exceot  both  the  PKT  address 
ana  the  integer  value  are    removed  from  the  stack. 

SOU:  Cst-ore  decimal  aestruct).  The  same  action 
is  taken  as  in  the  SID  ooerator  exceot  t^e  pointer  to  the 
decimal  allocated  area  and  the  decimal  value  are  removed 
f  rom  the  stack, 

SSD:  Cstore  str'im  destructl.  The  same  action 
is  taken  as'  in  the  SOD  ooerator  exceot  t^^e  pointer  to  tne 
strina  allocated  ar^a  and  t^e  strina  value  are  removed  from 
the  s t  ac  k  . 

j.   Input/Outcut  Operators 

D^*?:  (dumo).  D'^P  signifies  the  end  of  writina  a 
line  to  the  consol*».  A  carr^aae  return  and  line  feed  are 
output  to  the  console  via  t^e  ooerating  svstem. 

wIC:  (write  integer  to  console).  The  inteoer 
value  on  t  oc  of  t^e  stack  is  converted  to  ASCII  characters 
ana  printed  on  the  console. 

/jOC:  (write  decimal  to  console"'.  The  deci^ial 
value  on  too  of  the  stack  is  converted  to  ASCII  characters 
ana  printed  on  the  console. 

wSC:   (write   strina   to   console).    The   ASCII 
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Strina  value  on  top  of  the  stack  is  printed  on  the  console. 

wID:  Cwrite  integer  to  disk).  The  inteqer  value 
on  top  of  the  stack  is  converted  to  ASCII  characters  and 
stored  in  the  disk  buffer  allocated  for  the  file  name 
specified  in  the  source  ir'vPITE  statement. 

rtDO:  (rtrite  decimal  to  disk).  The  decimal  value 
on  top  of  the  stack  is  converted  to  ASCII  characters  and 
stored  in  the  disk  buffer  allocated  for  the  file  name 
specified  in  the  source  a RITE  statement. 

K^SD:  ("write  strina  to  disk).  The  ASCII  strina 
characters  on  top  of  the  stack  are  stored  in  the  dis<  buffer 
allocated  for  the  file  name  soecifiea  in  the  source  I'^'RITE 
Stat  emen t  . 

RCI:  fread  console  inteaer).  The  console  read 
buffer  is  scanned  for  the  ASCII  representation  of  an  inteaer 
which  is  converted  into  internal  ^orm  ana  placed  on  too  of 
the  stack. 

RCD:  fread  console  decimal).  The  console  read 
buffer  is  scanned  ^or  the  ASCII  reo resen t a t i on  of  a  decimal 
value  which  is  converted  into  internal  form  and  placed  on 
top  of  the  stack. 

RCSt  (read  console  string).  The  console  read 
buffer  is  scannea  for  an  ASCII  string  or  for  any  series  of 
characters  delimited  by  quotation  marks  «hich  is  placed  on 
top  of  the  stack, 

R^I:  (read  disk  inteaer).  The  disk  buffer 
allocated  to  the  file  name  appearing  in  the  source  language 
READ  statement  is  scanned  for  the  ASCII  representation  of  an 
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integer  which  is  converted  to  internal  form  and  stored  on 
top  of  the  <;  t  ac  k  . 

ROD:  (read  d i s x  decimal).  The  same  action  is 
taken  as  in  the  ROI  operator  except  a  decimal  value  is 
placed  on  top  of  the  stack, 

ROS:  (r^ad  disk  strina).  The  same  action  is 
taken  as  in  the  RDl  ooerator  exceot  a  strina  value  is  placed 
on  top  of  the  stacK. 

RCi'^i:  (load  console  buffer).  The  current  line  on 
the  console  is  du'^ped  into  ^he  console  read  buffer  and  the 
current  procram  counter  is  storea  in  preparation  for  the 
possibility  of  a  console  error  ana  the  subsequent  need  to 
recover  for  repeated  console  inou*". 

ECR:  (error  in  console  read).  If  characters 
remain  in  the  console  read  buffer  after  all  console  read 
operations  have  been  co'^pleted/  an  error  condition  exists 
and  the  prooram  counter  is  reset  to  the  start  of  tne  console 
read  routine  allowing  the  console  input  to  be  entered  again 
as  neces  sa  rv . 

OPN:  (aisk  ooen).  The  address  on  top  of  tne 
stack  Doints  to  the  allocated  area  for  the  file  control 
block  and  disk  buffer  associated  with  the  disk  file  name 
specified  in  the  source  1  annuag«»  file  declaration  statement. 
The  file  name  whictt  is  stored  in  the  fi^e  control  block  is 
passed  to  the  operatina  svstem  which  in  turn  ooens  that 
soecific  file  for  disk  inout/output. 

CLS:  (disk  close).  The  file  name  located  in  ^  he 
file   control   block  cointed  to  by  the  address  of  the  top  of 
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t^e  stack  is  oassed  to  the  ooeratinq  system  which  in  turn 
closes  that  specific  file  to  inout/output, 

ROB:  (reaHy  sequential  block).  The  interpreter 
input/outDut  routines  are  initialized  to  coerate  with  fne 
file  control  bloci<  anc  disk  buffer  area  pointed  to  by  tne 
adaress  on  top  of  the  stack.  The  address  of  the  code  ^o  be 
executed  uoon  reaching  the  end  of  a  file  is  also 
initial i  zed . 

RDF:  (ready  rando"^  block).  The  same  action  is 
taken  as  with  ROB  with  the  addition  thai"  ^he  specific  record 
of  the  disk  tile  is  also  taken  from  the  top  of  the  stack  and 
the  file  control  Dlocx  is  set  ud  to  conduct  input/outout 
from  or  to  that  soec i f i c  record. 

EDR:  fend  of  recoro  for  read).  At  the  end  of  a 
read  statement  the  remainder  of  the  record  is  skipped. 

EOrt:  (ena  of  record  for  write).  ^t  the  ena  of  a 
write  statement  the  remainder  of  the  record  is  f i 1 1 ea  with 
blanks  and  a  line  terminator  is  appended  to  the  end  of  the 
record , 

k.   Subroutine  Operators 

P^O:  (subroutine  call).  The  two  bytes  of  code 
following  the  P^U  co<"rator  represent  t^^e  address  of  the 
subroutine  in  the  coae  area.  This  operator  saves  t^^e  return 
address  at  the  too  of  memorv/  oositions  the  stac>c  pointer  at 
the  top  of  the  first  actual  oarameter  (see  Ficure  tU  for 
parameter  format)  and  branches  to  t^^e  first  statement  in  the 
SUDrout  i  ne  . 


•59 


SAV:  (sav<«?  actual  parameters).  The  S^V  ooerator 
expects  tne  stack  format  illustrated  in  Figure  11.  It 
copies  the  actual  parameters  to  the  top  of  memory  and  checks 
the  PCB  for  a  recursive  call  and  if  so  it  copies  the  PCR 
onto  the  top  of  the  stack. 

SV2:  (cooy  actual  parameters  into  formal 
parameters).  The  SV?  operator  copies  the  actual  parameters 
a^  the  too  of  memory  in^o  allocated  area  for  the  formal 
parameters  on  top  of  the  stack. 

UMS:  (unsave  oarar^eters).  The  HNS  ocerator 
checks  the  PCB  to  see  if  it-  is  the  ena  of  a  recursive  call. 
If  this  IS  the  caser  I'HS  restores  the  PCB  from  the  previous 
call.  UNS  also  returns  the  value  associated  with  the  name 
of  the  Subroutine  to  t-he  too  of  the  stack.  In  the  case  of 
procedures  ♦■ne  returned  value  is  7ero. 

RTN:  (return).  The  °TN  ocerator  changes  the 
value  of  the  prporam  counter  to  thi*  value  cf  the  return 
address . 
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IV.   CONCLUSION? 


This  project  has  resulted  in  the  copsf rue t i on  of  a 
high-level/  block-structured/  aopHcations  orientea  compiler 
for  micro-com  outers  with  ?0\^  hyfes  of  memorv  or  more.  A  hen 
compared  to  a  fully  dvnamic  scheme/  the  stack  storage 
allocation  and  retrieval  scheme  presented  here  appears  to 
enhance  program  execution  speed/  reduce  memory 
requirements/  ana  simolify  compiler  implementation. 

fimina  tests  with  several  Denchmar<  proorams  ha'^f*  been 
conducted.  These  test  proorams  we^e  obtained  from  RFFfZI 
ana  have  been  run  with  several  versions  of  the  BASIC 
proaramminq  languaoe.  The  results  fexpressed  as  execution 
time  in  seconds")  ^ r^    summarized  as  follows: 

BENCHMARK  NUMBtR     1       2  3     4     5     o     7 

ALGOL-M  1.8     1.3    3.5   "^.3   5.1  \n,?     1  b .  4 

INTEGER  bASTC       1.3     3.1    7.2  7.2       «.6  1^.5  ?8.0 
STAMDARO  BASIC      1.7     7.5   ?0.b  20. Q  ?2,i     i6.?  51.8 

Listings  of  the  seven  benchmark  proorams  are  contained  in 
AopenHix  A,  The  reason  ALHOL-M  apoears  slower  in  the  first 
oenchmark  is  that  the  grammar  reouires  at  least  one 
executable  statement  in  P"0R  looos  when  comparea  to  BASIC 
which  has  FOR  loons  which  c  ar  do  nothing.  The  result inq 
ALGOL- Ni  orogram  executes  1000  extra  assionment  statements 
which  the  B&STC  proorams  did  not.    Otherwise/   the   results 
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clearly  indicate  that  the  ALGOL-M  languaae  is  not  only 
we  1  1 -s  t  r-uc  t  ured  but  also  executes  rapidly  in  comparison  with 
the  very  best  BASIC  i n t e rore t e rs .  It  is  believed  that  tne 
major  reason  t*^at  tne  ALGOL-f^  versions  performed  so  well  is 
the  fact  that  the  1 ancuage  supports  inteaer  arithmetic  as 
opposed  to  most  BASIC  implementations  which  convert  all 
constants  and  variables  to  floating  ooint  format.  This 
allows  ALGOL-M  loop  control  counters  to  De  incremented 
extremely  rapidly.  Comparisons  for  deci'^al  calculations 
have  not  been  done  r  and  thus  no  conclusions  can  be  drawn 
concerning  relative  sceeds  of  c a  1 cu I  a t i or-denendent 
programs . 


6a 


V.   RECOMMENDATIONS 


There  are  several  areas  that  could  be  enhanced  in  this 
implementation  of  ALGOL-M,  ForT^atted  i/0  although  defined 
in  the  oramnnar  has  not  been  impleT'entea.  The  I/O  Definition 
is  very  sinrilar  t- o  that  of  COBOL  and  implementation  of  this 
should  not  be  too  difficult.  File  I/O  is  implemented^  but 
not  tested.  Oebuagina  facilities  in  the  run-time  monitor 
are  not  currently  imolemented.  However^  the  svstem  is 
designed  to  provide  the  following  information  at  run-time! 
the  line  numoer  of  tne  currently  executino  line  and  the 
value  of  each  variable  as  it  is  altered. 

The  current  version  of  ALf^UL-^  is  designed  to  run  on  a 
system  with  at  least  <^(^i<  bvtes  of  memory.  A  smaller  system 
could  oe  desianed  to  run  on  a  I6k  system.  This  would 
involve  dele^'ing  some  of  the  more  complicated  sections  of 
code  such  as  dynamic  arravs  and  recursive  suDrou tines.  The 
other  features  of  the  1 anauage  which  are  not  imclemented  are 
relatively  minor*  and  are  indica*"ed  in  the  orogram 
1  i  s t  i  ngs . 
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APPENDIX  A  -  RENCHMaRK  PROGRAMS 


Bencnmark.  Proaram  1 


30  0  PRINT  "SraRT" 

aOO  FOR  K=l  TO  1000 

50  0  r^EXT  K 

7  00  PRINT  "FNn- 

800  END 


BEGIN 

INTEGER  A,k; 
^PITEf "START"! ; 
FOR  K:=1  STEP  1 

A  :  =  0  ; 
/«RITE("FNn"1  ; 
END 


TO  lono  DO 


Benchmark  Procram  2 


300 

PRINT  "START" 

aoo 

K  =  0 

500 

K=Kf  1 

600 

I?    K<1000  THEN 

700 

PRINT  "EiND" 

800 

END 

500 


BEGPi 
INTEGER  K; 
WRITEC'STARf  ") 
K  :  =  0  ; 
WHTLE  K  <  1000 

K:=K+1 ; 
WRITE ("E^D") ; 
ENO 


DO 


Bonchnnark  Prooram  3 


300 

PRINT  "START" 

aoo 

K  =  0 

500 

K  =  K  +  1 

510 

A=K/K*K+K-K 

bOO 

IF  K  <100O  THEN 

700 

PRINT  "ENO" 

800 

END 

500 


P  E  G  i  M 

INTEGER  ArK; 

WRI  IE (  "START" ) ; 

K  :  =  0  ; 

WHTLE  K<1000  "i^^ 

BEGIN 
K:=K+i ; 
a:=k/k*k+k-k; 

END; 
WKITE("END" ) ; 
ENO 
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BenchTiark    Proaram    4 


300 

PRINT  "START" 

aoo 

K  =  0 

500 

K  =  K  +  1 

510 

A-K/^*3+4-5 

600 

IF  K<1000  THEN 

700 

PRINT  "END" 

800 

END 

son 


BEGIN 

INTEGER  A,K; 
WRITEC'START")  ; 
K  :  =  0  ; 

WHILE  KOOOO  00 
BEGIN 
K:=K+l ; 
A:=K/c?*i  +  a-5; 
end; 
/.'RITE  ("END")  ; 
END 


benchi^ark  Proaram  5 


300  PRINT^STAPT" 

aou  K=0 

500  K=K+l 

510  A=K/^*3+a-5 

520  GOSUb  d?0 

600  IF  K<1000  THEN 

7  00  PRINT  "END" 

800  END 


suo 


BEGR! 

1 1\  T  E  G  E  R  A  ,  K  ; 

PROCEDURE  DOMuTHTwn; 

A  :  =  0  ; 
WRITF("3TART") ; 

K  :  =  0  ; 

WHTLf  K<1  000  DO 
BEGIN 
K:=K+i ; 
A:=K/2*3+a-5; 
DUNOThING; 
END; 
WRITE ("ENu") ; 
END 
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benchmark  Proaram  6 


300  PRINl-'STAPT" 

aoo  K=0 

a "5  0  DIM  M(5) 

50  0  k=k-m; 

510  A=K/a*3+a-5 

5P0  GOSUB  820 

530  FOR  L-1  TO  ^ 

5^0  iMEXT  L 

bOO  IF  K<1000  THtN 

7  00  PRINT "tMD" 

800  END 


500 


BEGIN 

INTEGER  ArK,L; 
INTEGER  ARRAY  M  fl  :51  ; 
PROCEDURE  DONOTHING; 
BEGIN 
A:=0; 
ENO; 
^PITE  r  "START-")  ; 

K  :  =  0  ; 
WHILE  K<iooo  no 
BEGIN 
K:=Kf 1 ; 
A  :=K/?*3  +  ^-5; 
DONOTHING; 

FOR  L:=1  step  I  UNTTL  5 
A  :  =  0  ; 
END; 
wRITEf "END"! ; 
END 


DO 


tienchrT'ar<    Proargm    7 


300  PRINT  "START- 

aoo  K=0 

a30  DIM  M(5) 

500  K=Kfl 

510  A=K/^*3+a-5 

520  GOSUB  820 

530  FOR  L=l  TO  5 

535  M(L)=A 

5^0  NEXT  L 

bOO  IF  K<1000  THEN 

700  PRlNT"tNO'' 

800  END 

820  RETURN 


■=^00 


REG 
TNT 
TNT 
PRO 

BE 
A 

EN 
WRI 
K:r 

WHT 
PEG 
K  : 
A: 
DO 
FO 

FNO 
WRI 
END 


IN 

EGE 
EGE 
CED 
GTN 
:=0 

d; 

TEC 

o; 

LE 

IM 
=  Kf 
=  K/ 
NOT 
R  L 
M  fL 


R  a,k,l; 

R  ARRAY  ^^11:5]; 

URE  DONOTHING; 


"START"); 

K<i 000  do 

1 ; 

?*3  +  iJ-5; 

himg; 

:=!  STEP  1  UNTTL  5  DO 

1  :  =  A  ; 


T  E  (  "  E  M  D  "  )  ; 
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APPEMOiy  B  -  COMPILER  ERROR  MESSAGES 


AS 

BP 
DE 

DD 
IC 
ID 

10 
IT 

NG 
NI 
NP 
US 
PC 
30 
SI 
TO 

TO 
TS 

UD 
UP 
UP 


Function/t^'roceciure  on  left  hand  side  of  assignment 
St  atefnent  . 

Incorrect  bouna  pair  subtype  (must  be  integer). 

Disk  error;  no  corrective  action  can  be  taken 
in  the  d  rogr  a"^ . 

Doublv  declared  identifier/  label/  variable  etc. 

invalid  soecial  character. 

Subtyoes  incompatible  (decimal  values  can  not  be 
assigned  to  integer  variables). 

Integer  overflow. 

Identifier  is  not  declared  as  a  simole  variable  or 
f unc  t  i  on  . 

No  ALG  file  found. 

Subtyoe  is  not  inteaer. 

No  aooHcaole  production  exists. 

Subtype  is  not  strina. 

Undeclared  Parameter. 

Stac<  overflow. 

Array  suoscrict  is  not  of  suptyoe  integer. 

Subtyoe  has  to  be  integer  or  decimal. 

Subtyoes  do  not  match  or  ar*>     i  ncomoa  t  i  b  1  e  . 

Symbol  table  overflow. 

Unaeclared  <?ubscriDted  variable. 

Undeclared  identifier. 

Unaeclared  file^f unction. 

Undeclared  orccedure. 
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vo 


Varc  table  overflow 
lona  iaenti^iers. 


Possibly  caused  by  too  Tiany 
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APPENDIX  C  -  IMTERPRETEP  ERPOP  MESSAGES 


AR 

AZ 

CE 
DC 
UW 
07 
EE 
10 
NI 
OV 
KE 
RU 
SL 


ERROR  MESSAGES 

Array  subscrict  out  of  bounds. 

Attempt  to  aMocafe  null  decimal  or  strina^ 
default  to  10  digits/characters. 

Disk  file  close  error. 

Disk  file  create  error. 

Disk  file  write  error. 

Division  by  zero^  result  set  to  1.0. 

Disk  end  of  filer  no  action  soecified. 

Integer  overflow. 

No    INT  file  found  on  directory. 

Overflow  during  decimal  multioly. 

Attemot  to  read  oast  end  of  record  on  blockea  file 

Attemot  to  random  access  a  non-blocked  file. 

Significant  digits  lost  durina  decimal  stores 
va 1 ue  set  to  1.0, 


II 
IL 

sn 


rtARN^iG  MESSAGES 
Invalid  Console  Input 

IMon-s  i  gn  i  ^  i  c  an  t  digit  lost  during  decimal  store. 
Characters  lost  durino  string  store. 
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APPENDIX  D  ALGHL-M  LANGUAGE  MANUAL 


This  section  describes  the  various  elements  of  the 
ALGOL-M  languaae.  The  forrr^at  of  the  eletient  will  be  shown# 
followed  by  a  description  and  examoles  of  use.  The 
following  notation  is  used: 

Braces  O  inaicate  an  ootional  entrv. 

A  vertical  bar*  !  indicates  alternate  choices/  one  of 

which  must  apoear, 

EHoses  "...**  indicate  that  the  preceding  iteT^  mav 

oe  optionally  repeated. 

Reserved  wo'*as  are  indicated  by  capital  letters. 

Reserved  words  ano  other  special  symbols  must  appear  as 

shown . 

Items  appearing  in  small  letters  are    elements  of  the 

lanauage  which  are    defined  and  exol a ined  elsewhere  in 

the  1  amuage  manual. 


70 


arithmetic  expression 


ELEMENT 


arithmetic  exoression 


FORMAT: 


i  n  t  eger I  dec  i  ma  1 


variable 


{(}     arithmetic  exoression   binary  ooerat-or 
arithmetic  exoression  {)> 

{(}     unary  onerator   arithmetic  exoression  {)> 


DESCRIPTION: 


Ooerators  in  ALHOL-w  have  an  imoHeH  oreceaence  which 
is  used  to  •ietermine  the  Planner  in  which  operators  and 
operands  are  orouoeH.  A-B/C  causes  the  result  of  R 
divided  by  C  to  be  subtracted  from  A,  In  this  case  B 
is  considered  to  be  "bound"  to  the  "/"  ooerator 
instead  of  the  "-"  onerator  which  causes  the  division 
to  be  performed  first.  T^e  implied  precedence  binas 
operands  to  the  adjacent  operator  of  highest 
orecedence.  Trie  implied  oreceaence  of  operators  is  as 
f o ] lows: 
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unarv   ~  f  + 


*• 


Parentheses  can  be  used  to  override  the  imoMed 
precedence  in  the  saf^e  way  as  thev  are  used  in 
OPdinarv  alaebra.  Tnus  the  exoression  CA-6)/C  will 
cause  B  to  be  subtracted  from  A  and  the  result  divided 
Dv  C  . 

EXAMPLE: 

(X+Y)*(Z*YfX)**? 

X+Y+Z*X*Y*Z/  5.aSb  t  i 
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ARRAY  aeclaration 


ELEMENT: 

ARRAY  declaration 

FORMAT: 

INTEGFRIDECTMALISTRTNG  {( e xoress i on  )  >  ARRAY 
identifier  ,,,  hound  oair  lisf  (/identifier) 

DESCRTPTION: 

The  array  declaration  Hynamicallv  allocates  storage 
for  arrays.  The  optional  integer  expression  indicates 
the  lenath  of  each  ;^rrav  element.  For  strinas^  the 
maxifpum  length  is  ?55  characters  ana  for  decimals  the 
maximum  lencth  is  1^  diqits.  Integer  lenaths  are  not 
specified  since  storaae  adeauate  to  represent  all 
integer  values  between  -!d/3P4  ana  +10fi8a  is 
automatically  allocated.  Arrays  ?ire  not  au»"omdticallv 
initialized  to  zero. 

EXAMPLE: 

INTEGER  ARRAY  a[0:5,u:51; 
DECIMALriO)  ARRAY  X , Y f i : 6 , 5  :  I  0 j  ; 
STRIi\G  ARRAY  WORDS  [Yf  3:  121  ; 
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assignment  statement 


ELEMENT: 


assignment  statement 


FORMAT: 


variable  :=  {variable  :  =  }  ...  express  ion 


OESCKIPTION: 


The  expression  is  evaluated  ana  stored  into  the 
variable.  The  tyoes  o^  oermissible  assianments  are 
inaicated  bv  the  following  table: 

exD  res  s  i  on 


integer   decimal   strina 


1  n  t  «»qe  r 


variable   deci'Pal 


yes 

no 

no 

yes 

yes 

no 

no 

no 

yes 

strina 

Multiole  assianments  ?ire    allowed  with   the   expression 
oeing  assigned  to  all  of  the  Hstea  variables. 

EXAMPLE: 

X  :=  Y  +  Z; 

trn  :=Yr21  :=50; 
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balanced  statement 

ELEMENT: 

balanced  statement 

FORMAT: 

{label  definition}  simple  statement 

{label  definition}  IF  boolean  expression  ThFN  Dalanced 
statement  ELSF  balanced  statement 

DESCRIPTION:  • 

If  the  boolean  expression  is  true/  the  balanced 
statement  to  tne  left  of  thp  ELSE  is  executea.  If  the 
boolean  expression  is  falser  the  balanced  statement  to 
the  right  of  the  ELSE  is  executed. 


EXAMPLE: 

IF  A  <  R  THFN  A  : 

IF  R  =  C  TriEM 
BEGIN 

WRTTE(B)  ; 

p  :=  8  +  1 ; 
END 
ELSE 

BEGIN 

WRTTE(C) ; 

C  :  =  c  +  1 ; 
END; 

PRQGRAMMIMG  NOTF: 


=  1  ELSE  a  :=  2; 


A   semicolon   is   not   allowed   after   the    statement 
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immediately  preceding  an  ELSE 
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b  1  ock 


ELEMENT: 


block 


FORMAT: 


BEGIN  {declaration;}  ...  statement;  ...  END; 


DESCRIPTION: 


The  block  is  the  foundation  of  the  ALGOL-M  lang uaae. 
Each  time  a  new  bloclc  is  entered  new  variahles  may  be 
aeclared.  Tnese  vdr*iables  are  uniaue  in  the  sense 
that  a  variable  ^  declared  in  two  different  blocks 
represents  two  different  variables.  All  storage 
within  a  block  is  dynamic  ana  allocated  when  the  block 
is  entered  anc  ae-al1ocated  when  the  block  is 
departed.  A  block  can  be  used  any  place  a  simple 
statement  can  be  used. 


EXAMPLE: 


BEGIN 
X  :=  1  ; 
Y  :=  ^; 

E  i\l  n ; 

IF  X  =  r  THEN 
PEG  IN 

y  :=  5; 

Y  :=  a; 

END; 


PROGRAiMWiNG  NOTE: 
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Declarations  may  not  gpoear  in  case  blocks.  The  ^inal 
END*  which  "nafches  the  initial  program  BEGIN/  is  not 
followed  by  a  semicolon. 
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boolean  expression 


ELtMENT: 


boolean  expression 


FORMAT: 


NOTbooleanexpression 

Doolean  expression  OK  boolean  expression 
boolean  expression  A^J^  boolean  exoression 
{(}  expression  =;<;>;>=!<=;<>  expression  {)} 


OESCRTPTION: 


Integer-integer,  deciT'al-inteqer,  decimal-aecimaW 
i nt eger-dec i ma  1  /  and  s t r i nq-s t r i na •  comcarisons  are 
allowed  in  ^LGOL-'^.  For  i  n  t  eaer-dec  i  ma  1  and  decimal- 
integer  comparisons  the  inteoer  value  is  convertea  to 
a  decimal  value  prior  to  comparison.  Ihe  result-  of  a 
comparison  of  numerical  values  is  based  on  the  si?e  of 
the  numbers.  The  result  of  a  comoarison  of  string 
values  depends  on  a  charge cter-Hy-character  comparison 
where  the  first  instance  of  a  non-eaual  character 
establishes  the  Doolean  result-,  T  "^  e  collating 
sequence  of  the  ASCII  character  set  is  used  for  string 
comparisons.  bpnerally,  numbers  are  followed  ov  upoer 
case  let'ters  which  are     followed  by  lower  case  letters. 


EXAMPLE: 
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X  >  Y  OR  Y  <  z; 

(X  =  Y)  AMD  (Y  =  7  OR  Z  =  10)  ; 

IP  NOT  X  =  1  THFN  /JRITtC'HELLO'M  ; 
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bound  pair  list 

ELtMENT: 

bound  pair  list 

FORMAT: 

[exDrf»ssicn  :  expression{/expression  :  exoression}  ...J 

DESCRIPTION: 

Expressions  in  tne  bound  pair  list  must  be  o  ■^  tvpe 
integer  and  are  a^  er  than  or  equal  to  zero.  There  c  an 
be  no  more  than  <iS5  dimensions. 

EXAMPLE: 

tl :7,0:S1 
13:6, x:v] 
Cv*3:?, 1 : 1^1 
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CASE  Stat  ement 


ELEMENT: 

CASE  statement 

FORMAT: 

CASE  exoression  OF 
PtniM 

Stat  ement  ;  .  , 

fnd; 

DESCKIPTION: 


The  CASE  statement  allows  the  oroaram'ner  to  chose  one 
o^  several  statements  to  be  executed.  The  statement 
chosen  deoends  en  the  value  o'f  fhe  inteaer  exoression. 
The  first  statement  is  executed  if  the  expression 
evaluates  to  7ero.  If  the  value  of  the  expression  is 
greater  than  the  number  of  statements  in  the  case 
block*   the  resulting  action  is  undefined. 


EXAMPLE 


CASE  X  +  Y  OF 
REGIM 

WRITFCCASF  0"); 
WRITFCCASE  1"); 
end; 
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CLOSE  statement 


ELEMENT: 

CLOSE    statennent 

FORMAT: 

CLOSE  identifier  < » i aent i ^ i e r >  ... 

DESCHIPTlOu: 

This  statement  allows  the  p rooramme r  to  explicitly 
close  the  file  indicated.  Closina  a  file  results  in 
the  file  beino  rewound  fi.e./  i^  it  is  reopenea  the 
file  hecins  at  tne  first  recofo).  Anv  nurrber  of  files 
may  be  open  at  anv  one  time.  All  files  are  implicitly 
closed  at  the  end  of  the  program. 

EXAMPLE: 

CLOSE  FILElr  FILE?; 
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constant 


ELEMtNT: 

constant 

FORMAT: 


integerlaecimal Istrina 

DESCRIPTION: 

A  constant  rr>av  be  either  an  integer»  aecimalr  or 
strina  constant.  Integer  constants  are  numbers  with 
no  decimal  ooint  ranaing  from  -16, 3S^  to  tlo/i^'4. 
Decimal  constants  are  numbers  with  a  Hecirral  ooint  and 
may  not  exceed  18  digits  in  lenath.  String  constants 
may  be  composed  of  anv  comoination  of  alphanumeric  and 
special  charaters  and  may  be  up  to  P55  characters  in 
lenath.  Strincs  enterea  from  the  console  or  disk  may 
be  either  enclosed  in  ouotation  marVs  or  delimited 
with  blanks.  Strinas  used  as  constants  in  the  program 
must  be  encloseo  in  quotation  marks. 

EXAMPLE: 
10 
10.5b78 

"EXAMPLE  ONE" 
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dec  1 ara t  i  on 


ELEMENT: 

dec  1 arat  i  or 

DESCRIPTION: 


See  FILE  declaration,  ARPAY  declaration,  simole 
declaration,  crocedure  declaration,  and  function 
aec 1  a  ra  t  i  on  . 
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expression 


ELEMtNT: 


expression 


FORMAT : 


boolean  expressionlaritHmetic  expression 


DESCRIPTION: 


See  arithmetic  exoression  and  boolean  expression 
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FILE  declaration 


hLEMtNl  : 


FILE  dec  1  a  rat  i  on 


FORMAT: 


FILE  iaentifier  {(expression)}  (fiaenti^ier 
{(expression))}..,  ^ 

DESCRIPTIOfNi: 

The  identifiers  used  in  the  FILE  declaration  are  file 
identifiers  which  reference  actual  file  naf^es.  The 
actual  file  names  may  be  assianed  at  compile-time  or 
at  run-time.  The  optional  integer  expression 
following  the  file  identifier  is  used  to  scecify  the 
record  length  in  bytes  ■^or  hloci^ed  records. 

EXAMPLE: 

FILE  TAPE1  ,     TAPF^(  1?6)  ; 


PI 


FOR    state">ent 

ELEMENT: 

FOR    staterrent 

FORMAT: 

{label  definiricn>  FQP  assionment  stat-errent 

{STEP  expression}  U^ITIL  expression  HU  simple  statement 

DESCRIPTION: 

Execution  of  all  sta<"ements  within  t^e  si  mole 
statement  are  reoeated  until  t^e  indexina  variaole  is 
greater  tHan  or  equal  to  the  value  of  the  I'NTIL 
expression.  The  indexing  variabl**  is  incrementea  bv 
the  amount  specified  in  the  STEP  expression  and  must 
be  inc''ementea  by  a  positive  amotjnt.  The  UiNTIL  and 
STEP  expressions  are  evaluated  on  each  loop.  Tf  the 
optional  STEP  expression  is  omitted^  a  default  value 
of  one  is  used, 

EXAMPLE: 

FOR  I  :=  1  STFP  1  UNTIL  10  00 
X  :=  y; 

FOR  INDEX  :=  v  +  y  UNTIL  V  ♦  Y  DO 
d  F  G  I  fJ 

A  :=  &  +  R; 
aPITE (A)  ; 
end; 
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f unc  t  i  on  call 

ELEMENT: 

function  call 

FORMAT: 

identifier  {(excression  {fexpression}  ,..)} 

DESCRIPTION: 

Functions  may  acoear  as  priniary  elements  in  arithmetic 
or  ooole^n  «»xcressions.  Parameter  oassinq  i?  Dy 
value.  Functions  may  be  called  recursively  i«it^  no 
limit  to  '•he  nufroer  o^  recursive  calls  allowed. 


EXAMPLE: 
X  : 
Y  : 
C  : 


=  ramd; 

=  FUNC  *  RMDC^); 
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function  declaration 


ELEMENT: 

function  declaration 

FORMAT; 

INTEGERIDECIMAL  ISTRTiNiG    Fu^'CTION     identifier 
{(identifier     {/identifier)     ...)> 
{declaration;     .,,}    siTiple    statement; 

DE6CRIPTI0N: 

A  function  declaration  may  or  mav  rot  include 
parameters.  If  oarampters  ar*^  included  t^^ev  must  be 
declared  before  tHe  simole  statement  which  represents 
tHe  body  of  the  function.  Para meters  are  oassed  by 
value  and  may  be  of  tvpe  inteaer^  decimalf  or  string. 
Functions  return  a  value  to  the  Doint  of  call.  The 
value  to  be  returned  is  assigned  to  the  function  name 
(which  is  user;  as  a  simple  variable  within  the 
function)  prior  to  the  end  of  the  function.  Functions 
may  be  called  recursively  with  no  limit  set  as  to  the 
number  of  recursive  calls  which  can  be  made.  Variables 
may  be  declared  witnin  functions  and  are  considered 
local  to  ^he  function. 


EXAMPLE: 

INTEGER    FUrjCTlON    VALUF(V); 
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INTEGER  X; 

BEGIM 

X  :=  (X  *  S) 

VALUE  :=  x; 

END; 


(X 


2    ); 
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GOTO  statement 

ELEMENT: 

GOTO  statement 

FORMAT: 

label  definition  GO  TO  identifierlinteger 
laDel  definition  GOTO  identi fieri inteaer 

DESCRIPTION: 

Execution  continues  at  the  stat*»nnent  labeled  with  the 
identifier  op  integer  ^ollowino  the  GQTij  o^  GU  TO 
s  t  a  t  e-Tien  t  . 

EVAMPLE: 

NEXT:  GO  TO  iOO; 
100:  GOTO  NEXT; 

PROGRAMMING  NOTE: 

GOTO  statements  can  only  be  used  to  oranch  within  the 
current  o  1  oc  <  or  to  an    outer  blocic. 
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i  dent  i  f  i  e  r 


ELEMENT: 


i  dent  i  f  i  e  r* 


FORMAT : 


letter  {  1  e 1 1 e r 1  number ) 


DESCRIPTION: 


Identifiers  oegin  »jith  a     letter  ana  are    continuea  with 

any   alohanumeric  cHaract'»rs.   Alrnouah  identifiers  ud 

to  25S  characters  ray   he   usedr   cnlv   the   first   il 

characters    are  actually   used   to   aistinguish   the 
i  dent  i  f  i  e  r s  . 


EXAMPLE: 
A 

NAME 
COUNTER! 


Qi 


IF  St  at ement 

IF  Stat  emen t 

DESCRIPTION: 

See  balanced  statement  or  unbalanced  statement 
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label  definition 


ELtMtNT: 


1  abe 1  def  i  n  i  t  i  on 


FORMAT: 


identi  fieri  inteaer 


DESCRIPTIOim: 


Label  aefinitions  are       optional   on   all   balanced   or 
unbalanced  statements. 


fcXAMPLE: 

FINIijH: 
100: 
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procedure  call 


ELEMENT: 

procedure  call 

FORMAT: 

identifier  {(exoression  { r express i on }  .,.)} 

UESCRIPTiON: 

Procedures  can  he  called  witn  or  without  oarameters. 
Parameter  oassino  is  bv  value.  Procedures  can  be 
called  recursivelv  with  no  1  i  t^  i  t  set  as  to  the  number 
of     recurs  i  ve  calls, 

EXAMPLE: 

COMPUTE; 

COMPAREr " AAA" ,  AOOQ); 

COUNTCl,  ?,     3); 
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procedure  aeclaration 

ELE^'ENT: 

procedure  aeclaration 

FORMAT: 

PROCEDURE  identifier  Uidentifier  {/identifier}  )} 

{declaration;  .,.>  simple  statement 

DESCRIPTION: 

A  orocedure  opclaration  mav  or  may  not  include 
parameters.  If  parameters  are  i  nc  1  uaed  t*^ey  must  be 
declared  before  the  simole  statement  which  represents 
the  body  of  the  procedure.  Parameters  are  oassed  by 
value  and  may  be  of  type  intener^  decimal  or  string. 
Procedures  do  not  return  a  value  to  the  point  of  call. 
Procedures  can  be  called  recursively.  Proceaurf»s  are 
considered  secarate  clocks  within  which  local 
variables  may  oe  declared. 


EXAMPLE: 


PROCEDURE    OUTPUTS- 
WRITE     ("HELLO"); 

PROCEDURE    CQviPAPECX,  Y)  ; 
INTEGER    v,y; 
BEGIN 

WRITECrHE    LARGEST     INTFGFR     IS    "); 
IF    X    >    Y    T^tN 

/jRITECX)  ; 
ELSE 

►mPITECY)  ; 
END; 
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READ  statement 

ELEMENT: 

READ  statement 

FORMAT: 

READ  fvariahle  {, variable)  ...J  {OwENDFTlE  block} 

DESCRIPTION: 

If  the  form  of  the  READ  staten^ent  is  '='EAD'',  then  the 
input  device  is  the  console.  Otherwise  a  file  oction 
must  be  soecified  and  the  input  aevice  is  the  disk.  A 
READ  state'T'ent  reads  one  or  more  variables  at  a  time. 
The  ODtional  OiMENPFILF  section  indicates  action  to  De 
taken  when  the  pnd  of  the  specified  file  is  reached. 

EXAMPLE: 

KEAD(WURDONE,  X,  VALUF21; 

HEAD  FILE3  fAORDONE/  X.  VALUE?3; 

PROGKAMMIMG  iMOTF; 

The  ONEMDFILE  section  is  curently  not  implementea. 
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reserved  wora  list 


ELEMENT: 


reserved  word  list 


FORMAT: 


letter  {letter} 


DESCKIPTION 


The  following  words  are  reserved  by   ALGUL-m   and  rr^av 

not  De  usea  as  iaentifiers: 

AMD         /\RPAY         BFGTN       CASE 
CLOSE       DECIMAL       DO  FLSE 

END         EaTERNAL      file        FUNCTION 
GO  GUTO  IF  TNITTAL 

INTEGER     NOT  OF  ONENDFILE 

OR  PIC 

STEP        STRING 
TO  t.J  fNi  T  I L 

/jPITEON 

Reserved  woras   must   be   preceeded   and   followed   bv 

either  a  special  character  or  a  soace.   Spaces  may  not 

be  embedded  within  reserved  words. 


PROCEDURE   RtAD 
TAB  THEN 

v^HiLE       WRITE 
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s 1  mo  1 e  Stat  ement 


ELEMENT: 


simple  Stat  ement 


FORMAT: 


b 1 oc k I  ass i gnment  s t at ement  1  for  statement! 
case  s  t  a  t  ement  I  c  1  ose  s  t  a  t  emen  t  1  aot  o  state^^entl 
while  s  t  a*"  ef^en  t  1  read  s  t  a  t  emen  t  1  w  r  i  t  e  statement! 
procedure  c a )  1  I  i den t i f i er 


DESCRIPTION 


AH  ALGOL- iM  statements   are   free   form   and   must   be 
separated  Dy  semicolons. 


ino 


simple  declaration 


ELEMENT: 


simole  declaration 


FORMAT: 


INTEGER 'DEC  I  MALI  STRING  { ( iaent i fieri  integer)  } 
identifier  { / i aen t i f i e r >  ... 

DESCRIPTION: 

Simple  inteaer  variables  may  be  any  value  between 
-l6f3W^  and  ^  16  ,'^6^ .  Simple  aecimal  variables  can  be 
soec i f i ea  as  anv  lenqrh  from  one  to  1^  diaits  with  a 
default  length  of  lU  digits.  Simple  string  variaoles 
can  oe  scecifiea  as  any  lennth  from  one  to  ?55 
characters  with  a  default  lenath  of  10  characters. 

EXAMPLE: 

INTEGER  X; 

DECIMAL  CIS)  x,y; 

STRIi\G(35)  WQPDONE,  AORniwO,  WORDTHREE; 
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soec  i  a  1  charac  t  ers 

ELEMENT: 

soecial  cHaracters 

DESCRIPTION: 

The  following  scecial  characters  are  used  by  &LGOL-^: 

C    ooen  Parenthesis 

)    close  parenthesis 

*    asterisk 

+    plus 

-    minus 

:    colon 

;    sem  i  c  o 1  on 

<    less-than 

>    great  er- 1  han 

=    eaual 

t         comma 

[    ooen  b  rac  i^e  t 

1    c 1 ose  crac  Ket 

: =   ass  i  gnec  equa 1 

**   e  X  pon<3n  t- 1  a  t  i  on 

%    pe  rcen t  age 
Any  snecial  c^^aracter  in  the  ASCII  character   SPt   mav 
appear   in   a  strino.   Sp(»cia1  charactersr   other  than 
those  listed  above/  will  cause  an  error   conaition   if 
used  outside  of  a  strina. 
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TAB  expression 


ELEMENT: 


TAB  expression 


FORMAT: 


TAB  expression 

OESCRTPTION: 

TAB  is  optionally  used  in  a  /sfRITt  sta^eoient  to  caus«* 
spacing  on  the  outcut  line.  The  amount  of  soacing  is 
spec  i  n  eo  Dv  tne  inteaer  pxrr»=»ssion  following  TAB. 

EXAMPLE: 

rtPITcfNEXT     NAME",     TAP    S,     NAME  IT]); 
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unbalanced  stat^m^nt 

ELEMENT: 

unbalanced  statement 

FORMAT: 

{label  definition}  IF  boolean  etpression  THEN  stateTient 

{label  definificn>  IF  boolean  expression  ThFN  balanced 
state^ient  ELSF  unbalanced  s^'ate'^ent 

DESCRIPTION: 

Unlike  the  balancea  stateT'ent  thjt  will  always  Have  a 
Dalanced  statement  on  either  side  of  the  ELSE  in  an  IF 
THEN  ELSE  structure^  an  unbalanced  statement  may  not 
even  include  trie  ELSE  portion  of  the  statement. 

EXAMPLE: 

IF  S  >  Y  TriFiM  vjRITEf  X)  ; 

IF  X  <  Y  THEN 

IF  Z  >  Y  THEN 

.-jPITECZ) 
ELSE 

wRlTEfx) ; 

PROGRAMMING  NOIE: 

A  semicolon  is  not  allowed  after  the  statement 
immeaiately  preceding  an    ELSE. 
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variable 


ELEMENT : 


var  i  ab 1 e 


FORMAT; 


identifier  Mhound  oair  list ]> 


DESCRIPTION 


A  variable  in  ALGOL- M  may  be  sirnple  or  subscripted  and 
of  tyoe  IMTEGFR,  DECIMAL,  or  STPINQ. 


EXAMPLE: 
X 

VALUE  r^i 
z  ri ,x  *  Yi 
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irJHILE    stat-ement 

ELEMENT: 

WHILE  statement 

FORMAT; 

k^HILE  boolean  e^tpression  DO  sinnole  statement 

DESCRIPTION! 

WHILE   statements   continue    e^^ecuting    the  simple 

statement   followina  the  Ou  for  as  long  as  the  boolean 
expression  is  true. 


EXAMPLE 


'^HiLE  I  >  0  on 

I  :  =  I  -  1  ; 

^vHILE  X  >  5  AND  Y  <>  A  00 
BEGIN 

X  :=  y  /  3; 
sNDlTEfx)  ; 
end; 
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WRITt  statement 

ELEMENT: 

WRITE  statement 

FORMAT: 

WRITE  !WRIT0^!  {file  option) 

(exoress i on  I t aD  exp ress i on  I o i c  de ^ i n i t i on  I s t r i no 

{/expression}»-ab  exDres«5ionIpic  definition!string>  ... 

OESCHIPTION: 

The  wRITL  option  indicates  the  output  will  start 
printinn  on  a  new  line^  while  the  WkTTEO^J  opt"ion  will 
continue  orin^'inq  on  t-h<=»  safe  line.  Tf  the  torr^  of 
the  state-T^ent  is  l^.'RTTF(  or  WRTTFONCr  the  output  device 
is  the  console.  Otherwise/  a  file  ootion  must  be 
specified  ana  the  outout  device  is  the  disk. 

EXAMPLE: 

v^RITECx)  ; 

k-vRITEC-THE    NUMBER     IS",X    t    Y); 

WRITE  ("ANS.-.FK",     TAB    5,     V     *    Y); 

PROGRAMMING  NOTE: 

The  PTC  definition  is  not  currently  impleTientea. 
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APPENDIX  E  ALGOL-M  LANGUA&F  STRUCTURE 


In  the  follow ina  sections*  the  syntax  of  the  lanauage 
will  oe  listed  in  BNF  notation  followed  by  the  semantic 
actions  (offset  with  asterisks)  associated  with  that 
production.  The  descriotion  will  be  given  in  terms  of 
comoiler  oata  structures  and  the  ALGOL- i*"  machine  coae 
generated.  Items  enclosed  in  brackets  and  separatea  by 
slants  are  alternative  semantic  actions.  N/A  indicates  no 
action.  This  notafion  is  similar  to  that  used  in  PEF  6  and 
RFF  10. 


1  <proqram>  ::=  <block>  -*- 

*<block>;  xTT;  (eof  indicator) 

2.    <block>  ::=  <block  head>  <bloc<  ena> 
*<block  head>;  <block  end> 

3  <block  heaa>  ::=  <blocK  head>  <dec 1 ara t i on>  ; 
*<b1ock  nead>;  <dec 1 arat i on> 


I  <beo  i  n  > 


*<bl ock> 


5  <beain>  ::=  begin 

*RLI 

6  <h1ock  end>  ::=  <block  bodv>  '     end 

*RLD 

/  <block  body>  ::=  <st- a»- ement  > 
*<st  at emen t  > 

6  <block  body>  ;  <statement> 

*<Dlock  boav>T  <statement> 

^    <dec 1 ara t i on>  ::=  <file  declaration> 
*<file  declaration> 
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10  J  <si'nDle  dec1aration> 
*<simole  declaration> 

11  I  <5imp1e  dec1aration>  < i n i t i a  1  option> 
*<simDle  dec  1  a ra t i on> ?  <initial  ODtion> 

12  1  <arrav  declaration> 
*<array  dec  1  a  rat i on> 

13  I  <arrav  declaration>  <initial  option> 
*<array  dec  1  arat  i  on>  ;  <initia1  opt"ion> 

1^  !  <5uhproaram  dec  1  a  rat- i  on>  ■ 

*<suborografr  dec]aration> 

15  I  <external  dec  1 ara t i on> 
*(f\iot  i  mp  1  efren  t  ed  }■ 

16  <simDle  declaration>  ::=  <Heclaration  heaa> 

<  i  ae^^  i  f  i  er> 
*<declaraticn  heaH>;  LIT  identifier  address) 
*[ALD/ALS/  ^'/a  for  inteoersl 

17  <initial  ODtion>  ::=  <initial  head>  <con5tant->  ) 

*<initial  nead>;  <constant> 

18  <  i  n  i  t  i  a  )     rieaO    ::=    initial     ( 

fM/A 


1^  1  <initial  head>  <constant>  , 

*<initial  head>;  <constant> 


^0    <dec1arat"ion  head>  ::=  <declar3tion  tyDe> 
* <dec 1 arat 1  on  tvDe> 


^l 

21 


I     <dec1aration    t^eaci>    <  i  dent  i  ■f  i  e  r> 

*<dec1araticn  head>;  LIT  {identifier  address)* 
*rALD/AL3/  ^'/4  fo**  inteners! 


22    <dec1araticn  tvpe>  ::=  strina 
*TM1  Istrinc  default  size); 


23 


2« 


*<size  opticn> 


N/A 


string  <size  ODtion> 


;  i  n  t  eoer 


25  I  dec  i  ma  1 

*TiMl  (decimal  default  size); 
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26 


!  decimal  <si2e  option> 


*<size  opticn> 


27    <size  option>  ::=  (    <variable>  ) 
*LITLOAD  (variable  address}; 


28 


I  (  <  i  n t  eger>  ) 


*<  i  n  t  eger" 


2^    <state'"ent>  t:=  <b^1anced  statement> 
*<balanced  statement> 

30  !  <unbalanced  statement-> 

*<unbalanced  statement> 


31  <balanced  statement>  ::=  <si'T'Dle  staten"ent> 
*<simD)e  statement> 

32  I  <if  clause>  <true  Dart>  e]<;e 

32  <balanced  st-at-ement> 
*<if  clause>»  <t-rue  parf>;  <balanced  statemenf> 

33  I  <label  aefinition> 

33  <balanced  statefnent> 

*<1ab*»l  definition>;  <Dalanced  statement> 


3^  <unbalanced  statement>  l  '-    <if  clause>  <statemenr> 
*<if  clause>/  <<?  t  a  t  ement  > 

35  !  <i^  c]ause>  <true  oart> 

35  else  <unbalanced  s  t  a  t  emen  t"  > 
*<if  clau<;e>;  <frcje  part'>;  <unba)anced  statef7ient> 

36  I  <1 abel  def  i  ni  t i on> 

36  <unbalapced  sfate'rent> 

*<laPel  definition>;  <upbalanced  state'nent> 


37  <true  oart>     ::=  <balanced  statement'> 
*<balanced  statement>;  BRS  {adaress  of  end  of 
♦current  statement) 

38  <1abel  definition>  ;:=  <iaentifier>  : 

N/A 


3P 


!  <  i  n  t  eae  r >  : 


N/A 


^0    <simc]e  statemenr>  ::=  <block> 
*<bl oc  K> 


1  10 


41 


42 


43 


aa 


as 


^b 


47 


48 


4P 


50 


*<assignment  statemeni!> 


*<  f or  St  at ement  > 


*< while  state'T'ent> 


*<read  statement-> 


*<write    staternent> 


*<case    stater7ient> 


*<go  to  state'nent> 


*<close  state'nent> 


*<procedure  call>;  PRO 


<assianment     statefT»ent> 


<f  or    Stat  ement  > 


<wh  He  Stat  ement  > 


<read  st  at  emen  t  > 


<write  Stat  ement  > 


<case  Stat  ement  > 


<ao  to  statement> 


<close  statement> 


<Drocedu  re  c  a  M  > 


<  i  aen t  i  ^  i  e  r> 


*TM?  (subroutine  address};  PRO;  POP; 


51  <assignment  statempnt>  ::=  <  1  e  "^  t  part>  <exDression> 

*<left  Dart>;  <'»xDression>;  [SIT/ SID] 

52  I  <  1  e-f  t  part> 

52  <ass/ianmentstatement> 

*<left  nart>;  <assianment  statement> 


53    <left  oart>  ::=  <variable>  := 
*<variab)e>;  fL T T /L I TLO&Dl 


54    <e<p res s i on >  ::=  <arithmetic  expression> 
* <a r i t hme t I c  exoression> 


55 


I  <if  express! on>  <expression> 


N/A 


56    <arithTetic  exDression>  :: 
*  <  t  e  rm  > 


-  <  t  e  r  (^  > 


57 


I  <arithmetic  expression>  + 
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b7  <term> 

*<anthmetic  expression>;    <term>;     lADT/ADDJ 

58  |<arithmeticexpression>- 

58  <term> 

*<api  t  hTiet- i  c  exDression>;     <terfn>;     ISBT/SBD] 

5^  |<arithmeticexpression> 

5<5  I     !     <terr"> 

*  <a  r*  i  t  hme  t  i  c  exDression>;     <t"erm>;     CAT? 


60 


61 


*<term>;     NIEG 


*<  t  e  rrr  > 


;     -    <t  erm> 
!     +    <t-erfn> 


6?    <term>  :!=  <Drimarv> 
*<pri mary> 

63  1     <ternn>*<prirnary> 

*<term>;     <primary>;     i^Ll/'^LD] 

6^  I      <tefni>     /     <ppinnary> 

*<term>;     <pn'Pary>;      IDvT/DvO] 

65  <primary>     !:=    <primafy    e1e'nent> 
*<primary    e1enient> 

66  I     <primary>    ♦*     <Drimary    e]pment> 
*<primary>;     <ori.Tnarv    '»1(?ment>;     IXP 


67  <prirpary    e1e'T'ent>     'Z~    <variable> 

♦  LITLOAD  (addre'^s  of  sirrple  variable}/  M/A  for 
*subscripfec  variable*;/  1^*2.     {subrountine 
*address  in  code  area>;  P^U 


68 


I  <cons  t  an  r  > 


*<cons  t  an t  > 


6^  !  <proce'iure  cal1> 

*<procedure  call> 

70  I  (<assignmentstatement->) 

*  <ass  i  gnmen  t-  5tatement> 


71 


I  (     <e  xp  res  s  i  on>  ) 


*<express  i  on> 


72    <con?tan^>  ::=  <inreaer> 
*Ii\iT;  {constant} 
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7"^  !  <decima1> 

*OEC;  {constant} 


7U 

*STP;  {constant} 


'  <s t  r  i  nq> 


75  <variab]e>  ::=  <identifier> 
N/A 

76  I  <subscripted  variable> 
*<subsc r i D t ed  varTable> 


77    <file  declaration> 
*{not  i  mp  1  e^Tien  t  ea } 


=  <file  head>  <file  name> 


7fl    <fne  head>  ::=  file 
*{not  i  rnp  1  efr  en  t  pd  } 

19  I  <fi]e  heaa>  <file  nafT'e>  t 

*{not  i  mp  1  eT-en  t  ed } 


80    <fi]e  na^e>     '  l-    <strino>  <length  ontion> 

*{not  1  Tip  1  erren  t  ecj} 

8t  !  <st  ri  no> 

*{not  i  rpp  1  enren  t  ed } 

82  !  <iHentifier>  <1ength  oDtion> 
*{not  implemented} 

83  I  <  i  dent  i  f  i  er> 
*(not  impleTentea} 


8a    <]enath  oPtJon>  ::=  f  <identifier>  ] 
*{not  i  mp  1  e^'en  t  ea } 

8S  I      r    <  i  nt  egpr>    1 

*^not     i  Tip  1  en-en  t  ea} 


86    <array  aeclardtion>  ::=  <arrav  list> 

86  <bouna  pair  Hst> 

*<array  1ist>;  <bound  pair  li<;t>; 

*LIT  (tt  oi    arravs(m)>;  LIT  (type  of 

*a  r  ray } J 

♦followed  by: 

(1)  LTF  {array  location) 

(2)  n  =  m-l  if  T>  =  0  then  halt  else  steD(l) 


1  1  3 


87    <array  Hsf>  ::=  <arrav  head>  <identifier> 
*<apray  head> 

68         <array  head>  ;:=  <declaration  tyDe>  arrav 

*<dec 1  a ra ^ i en  tvpe> 

Q9  I  <array  head>  <identifier>  , 

*<array  'nea'i> 


90    <bound  pair  Hst>  ::=  <bound  pair  head> 
90  <bouod  pai  r>  J 

*<bouna  pair  heaa>;  <bound  oair> 


91    <bound  pair  head>  ::=  [ 
N/A 

9?  I  <bounH  pair  head>  <bound  Dair>  f 

*<bound  pair  Head>;  <bound  oair> 

93  <bound  pair>  ::=  <exDrf»ssion>  :  <expression> 
*<expression>?  <expression> 

94  <supscrioted  variable>  :!=  <subscript-  head> 

94  <express 1 on>  1 
*<si.jbscriDt  head>?  <expression>; 
♦LITLOAD  <array  adaress>;  5UB 

95  <subscrint  head>  ;:=  <identifier>  [ 

N/A 

98  J  <subscript  head>  <e5<press  i  on>  / 

♦  <subscriDt'  head>;  <exoression> 

97  .  <go  to  s  t  a  t  eTien  t  >  ::=  <qo  to>  <identifier> 
*DCP  {a    of  blocks  to  dec remen t > /NOP ? NOP 
*^ol lowed  bv  RPS  <brancH  address} 

98  !  <qo  ♦•o>  <integer> 
*OCB  {»  of  blocics  to  decrement } /NOP  ;N0P 
*fonowed  by  PKS  {branc*^  address) 

99  <go  t o>  : : =  ao  to 

N/A 


100 


I  aot  o 


N/A 


101    <read  staternent>  ::=  <reao  nead>  <vdriab1e>  ) 

*<read  heao>;  LTT/LTTLQAD  {address  of  variable/; 
*ODT/RCI;  SID/SDO/SSD 
*if  console  I/O  then  FCP 


iia 


102    <read  head>  ::=  read  ( 
*RCN 


103 


J  read  <^i1e  oDtion>  ( 
*{not  implemented) 


lOa  !  <reaH  head>  <variable>  / 

*<read  head>/  sarne  as  production  101 

1  OS    <write  st at emen t >  ::=  <write  head>  <exDression>  ) 
*<write  head>;  <expression>;  [wIC/wDC/irtSC/^TD 
*WD0/W1D] 

106  I  <write  Head>  <tab  expression>  ) 

*^not  i  Tp  1  e'^'en  t  ed> 

1U7  1  <write  heaa>  <pic  definition>  ) 

*{not  i  mp  1  eT-en  t  ea  } 

108         <i«irite    head>     ::=    write     ( 
*DMP 

10^  !  write  <f})e    ontion>  ( 

*{not  i mp 1 e^en t ed > 


1  10 


I  writ  eon  C 


N/A 


111  !writeon<fi1eoDtion>( 
*{not  implemented) 

112  I  <write  Head>  <expression>  , 
*<write  head>;  <expression>;  (LIT/LI  rLOi^Ol 

113  I  <write  Heaa>  <tab  expression>  , 
♦  •foot  implemented) 

11^  I  <write  Kead>  <pic  definition>  / 

*{not  implemented) 

115    <file  opticn>  ::=  <identifier> 
fvi/A 


1  lb 


1  17 


1  18 


N/A 


N/A 


i\/A 


!  <identifier>  <rec  option> 


I  <  s  t-  r  i  n  a  > 


I  <s^r^nn>     <rec     option> 


1  1  '^    <  rec  OD  t  i  on>  : 
N/A 


=  f     <iaentifier> 


1  15 


120 


•   / 


<  i  nt  eqe  r> 


N/A 


121    <pic  definition>  ::=  <pic  heaa>  <pic  list>  ) 
*'fnot  i  Tip  1  e'T'en  t  ed) 

\22  <Dic  heaH>  ::=  pic  <string> 

*lnot  i  mp  1  ef^en  t  ed> 

123  1  pic  <identifier> 

*{not  imple'T'enteo) 

12^    <pic  list>  ::=  (  <expression> 
*^not  i  Tip  1  enren  t  ed) 

125  1  <pic  list>  ,     <e5<pression> 
♦  •(not  i  mp  1  e'^en  t  ea  > 

126  <tab  expression>  ::=  t^b  <exprie'ss  i  on> 
*{not  i  Tip  1  e^en  t  f=»d  > 

127  <if  clau<5e>  ::=  if  <boo1ean  Pxoression>  th»n 
*<boolean  expression>;  PSC  {prancH  aadress) 

12B    <if  exori?ssion>  ::=  <  i  ■^  clause>  <expression>  else 
*(not  i  mp  1  e'T'en  t  ed  ^ 

12^    <boo1ean  expression>  ::=  <hoolean  term> 
*<boolean  ter'^> 

130  1  <boolean  expression>  or 

130  <boolean  term> 
*<boo1ean  e^pression>;  <boo1ean  ter'T>>;  PUR 

131  <boo1ean  ter'n>  ::=  <boolean  orirnarv> 
*<boo1ean  pri'nary> 

132  I  not  <boolean  orimarv> 
*<boo1ean  primary>;  NOTO 


133 
133 


13a 


1  <boolean  term>  and 
<booledn  Drimarv> 
*<boolean  ter'n>;  <boolean  ppimary>  AiSjOG 

<boc1ean  ppimary>  :;=  <]ogica1  express ion> 
*<1ogica1  express ion> 


13S 


I  C  <boolean  expression>  J 


*<boo1ean  expression> 


136    <logical  expression>  ::=  <pxoression>  <rp1atioP'> 
136  <«»  X n  re s  s  i  on> 

*<expre'5sior>;  <expression>;  fst-rinc/  integer* 

*or  decimal  relational  operator! 


1  tb 


1  SI  <re1 at  ion>  : :=  = 

N/A 


1  38 


IS^? 


140 


N/A 


N/A 


N/A 


!  <cofT'p> 


lai 


<como> 
N/A 


r  <  > 


142 


143 


N/A 


N/A 


1  <  = 


;   >  = 


144  <i«hi1e  statenrent>  ::=  <wHile  clau3e>  <do  st-aten^ent> 
*<whne  claus*»>;  <ao    statement>;  "^kS 
*{Oranch  locafion> 

14*5    <i»^hile  c1ause>  :t=  <whilp>  <boolean  exDrossion> 
*<boo1ean  excression>;  ?oC  (branch  address) 


146 


<wh 1 1 e> 

N/A 


=  wh  i 


147   <for  s t a t emen t >  ::=  <for  clause>  <steo  exDression> 

147  <untilclause><dostdte'T'ent> 
*<for  c1ause>;  <steD  exrression>;  <untn  c1ause>; 
*<do  statement>;  PRS  {brancH  aadress> 

148  <for  clause>  ::=  for  <assianrrent  state'Tient> 

*  <ass  i  gnfnf»nt  statement>;  RRS  (branch  address}? 

*LIT  (counter  variable};  LITLOAD  (counter  variable} 

14P    <step  exoression>  ::=  step  <exrression> 

*<expression>;  AUT;  SID;  LITLOAD  (counter  variable} 

150  <until  c1ause>  ::=  <until  non-term>  <expression> 
*<until  non-ternn>;  <expression>;  LtQ?  bSC 
♦{branch  aadress} 

151  <until  non-ter'Ti>  ::=  until 

*\i^\     (one);  aOT;  SID;  LITLOAD  (counter  variable}/ 
N/A  if  there  is  a  steo  expression] 

15?    <do  statement>  ::=  do  <5imDle  statement> 
*<simDle  statemenr> 


1  1  7 


153    <close  statement>  t:=  close  <iHentifier> 
*(not  implemented} 

15^  1  <c1ose  statement>  ,     <idenfifier> 

*{not  1  mp  1  erren  t  ea> 

15S    <subprograrr  declarfltion>  ::=  <subproqram  heading> 

155  <simple  si'atement> 
*<suDorogranp  headina>;  <simDle  statement>?  LIT 
♦{subroutine  PRT  address};  UNS;  RTN;  LiT{SBP>: 
*LIT  O;  SIO; 

156  <subDrogram  headinrj>  ::=  <function  heading> 
*<function  headina> 


157 


1  <orocedure  heaaina> 


*<procedure  headinq> 


158    <function  Headina>  '.  '.-    <Daramless  function> 
*<paramless  function> 

15*^  |<^unct'ioniparams> 

*<function  ca''ams>;  SV^^ 

loO    <procedure  headinq>  ::=  <paramless  proc> 
*<param1ess  proc> 


161 


I  <proc  S,  narams> 


*<proc  R  oarams>;  SV2 


lo2    <param1ess  function>  ::=  <declaration  tyoe> 
Ito^  function  <identifier>  ; 

*<aec 1 arat i on  tvpe> 

163    <function  %    Darams>  ::=  <function  heaa> 
1 b3  <i dent  i  f  i  er>  )  ; 

*<functionheaa>  ^ 

16*^  !  <function  %    oa'"ams> 

1 6^  <dec 1 arat  i  on>  ; 

*<function  carams>/'  <declaration> 

lo5    <function  hQ?>iC^>     ::=  <aeclarafion  tvpe>  function 

165  <identifier>( 
*<dec 1  a ra t i en  tvpe> 

166  1  <function  head>  <  i  aen  t- i  f  i  e  r>  , 
*<function  heaa> 

lb7    <param1ess  proO  ::=  procedure  <identifier>  ; 
*TiMl  {parameter  count};  1^1  (local  variable  & 
♦  oaraT^efer  offset);  LIT  {base  of  PCR>;  SAV;  BLi 
*if  this  is  a  non-integer  function  then 
*LITLOAD  {lenath  of  return  value); 
*LIT  {pRT  address  of  ^unction};  t^LH/ALS] 
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Ib8    <ppoc  ^  Daranis>  ::=  <procedure  head>  <iapntifier> 
168  )  ; 

*<procedure  head>?  san^e  as  oroduction  16^ 


169 
169 


I  <proc  ?.  Darams>  <dec  1  ara t- i  on> 


*<proc  nararrs>f  <dec  1  a  rat  i  on> 


170    <procedure  h?ad>  ::=  procedure  <identifier>  C 
*8LI; 


171 


!  <procedure  head>  <identifier>  , 


N/A 


172  <procedure  can>  ::=  <ca11  heading>  <expression>  ) 

*<can  headina>;  <e*Dression>;  IM2 

♦  (address  o^  subroutine  in  code  ?ir^^)'f     PRO 

173  <can  headina>  ::=  <identifier>  ( 
N/A 


1 7a 


176 
176 


I  <can  heading>  <expression> 


*<express  i  on> 


175    <  dec1aration>  ::=  <declaration  tyDe>  «?xterna 
175  function  <external  1ist> 

*Tnot  i  Tip  1  efT^  en  t  ea  V 


!  external  procedure 
<external  1ist> 


*(not  i  Tip  1  erren  t  ed  > 


177  <external  1ist>  ::=  <identifier> 
*{not  i  rpp  1  e^en  t  ed> 

178  !  <ext-ernal  lisf>  ,     <idenf'ifier> 
♦  •(not  i  f^p  1  e^en  t  ed  )■ 

179  <case  statement>  ::=  <case  heading>  <case  blocl<> 
*<case  Headino;  <case  b]nc'f>; 

*Ho  n  t  i  mes  f  n  =  numbe  r  of  statefne'^ts  in  case  bloci<J 
BPS  {address  of  case  s t a t emenf ( n ) > 

180  <case  headinq>  ::=  cas**  <expression>  o  "f 
*<expression;  LIT  {3>;  ^PI;  I^^^ 
♦{address  o^  end  of  case  blocW};  SoR;  bPA 

181  <case  blocW>  ::=  oegin  <case  block  bodv>  ;  qv^q 
N/A 

182  <case  blocW  body>  ::=  <statement> 

*<s  t  a  t  e'^en  t  >  ;  6PS  {addres*^  of  end  of  case  block) 

183  1  <case  block  boGv>  /  <statemenf> 
♦same  as  oroduction  182 
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ALGOL- M   PmK:RAM   LISTINGS 


lOOh: 


/*load    point    for    compllf-r^- 


dec lare    fa  Ise  1 

true  1 

n  t  1 

bdoa        lit     '5h' 

star  tbdos  addr 

max    based    s  tar 

boo  t 

p^'  Jac  ks  ize 

i ti t reos  Ize 

dr  1 

proc 

f  i  leeof 

rf  1  le 

1  dents  Ize 

addr 

forever 

varc3  ize 

Indexs  Ize 

states  ize 

maxoncoun  t 

r  r 

If 

5»  tr  in/^de  1  ira 

ques  I  ionraark 

tab 

CO  1  In 

c  o  rane  n  t 

conbuf  f s  ize 

eo  Ichar 

haslit  b  l9  ize 

sourcerecs  ize 

ha  8  hina  s  k 

con  f  char 

eo  f  f  i 1  ler 

percen  t 


t°ra 1 ly      O'  , 
t  -^  I-  a  1  I  ^'    ■  1  *  , 
tera 1 ly    ' I \ tera 1 ly ' . 
.'*    entry    po  1  n  t 

5! s     i  n  i  I  i  a  1  •"  ^ h )  .       Tad 
bdos    address . 

•0'  .  Z'*:    exi 

•  ta  • . 

■  128*  , 
'declare'. 

' proced  ure ' 
'  1  •  . 
•2«'  . 
'32' 


to    d  I ."  k    o  pe  rati  ng-    s  y  .=-  torn 
to     top    of     Li^^s 


dec lare 


niazrno 

max  1  no 

m;»xpno 

maxsno 

starts 

prodno 

seraic 

CO  lone 

d..c 

po  fc 

endc 
s  t  r  ing 
d<»c  ima  1 
1  n  tefirerc 
pro  c  c 


Identifier 


tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
tera 
1  it 


of  p  t  r 


to  r*?  t  urn  to 
■  s  tac  k  s  izes 


o  pern  I  !  n<^    < 
for  p'^rser 


sys 

T/ 


lem  */ 


' wh  i  1 e 

•  100-  . 

' address 
'  add  r«»s3 
'23'  . 

•  13'  , 
■0ah' , 

•22h' . 
'3fh' . 
'09h'  . 
•3ah'  . 
•0*  . 
•82*  . 
•0dh' . 
•64'  , 

' 128' , 
•63'  , 
•3ch'  . 

•  lah"  . 
'25h'  : 


'  address 
trite  '  , 


ly 
ly 
ly 
1  y 
ly 
ly 
ly 
ly 
ly 
1  y 
ly 
ly 
ly 
ly 
ly 
3.T 


t »  rran." 


literally 


1.'52 

190 

J90 

373 

1 

183 

»•  . 

13' 

18" 

24' 

26' 

49' 

."2' 

33- 

54' 

.■55' 


/ 
/ 


/■*■ 


,  / 
de 


/*  max  read  coant  *-^ 
■'f^  max  look  count  ^/ 
/*  max  push  count  */ 
■^  max  state  count  */ 

start  state  */' 

*    number    of    productions    */ 

serai  CO  Ion    •"^/ 

*  colon    */ 
do    «/ 
eof    r./ 

'K    end    */ 
■■    s  t  r  inar    *^ 
^    d«»c  i  ma  1    ^  ■" 
'>"'     in  teller    '■-  ' 

*  procedure'     "^Z 
nt  1  f  ier^/ 

"^     terminal     ''oiint    */ 


dec  lare    sb loc 

<a,.  iipo «>  bu  f  f    ba9»*d 
y /.  urcp  p  t  r 
b  u  f  f  p  t  r 
er rorcoun  t 

I  ln»»buff(conbuffs  Izc) 
1  i  nep  tr  byt 


addre-is     initial'  H'^Ii)  . 
h  |o.-i  «r)ur'^<^r'>''?i  17.'  )     byte  . 
byt.^  inltial<s..Mrcerecsize) 

byt  p  1  n  i  t  in  1(  2r»5  »  , 

a  <1  d  r  •=  s :?     i  n  i  f  1  a  1     <>  ■  , 
h  y  t  (^  , 

1  n  i  t  i  n  1  f  O  >  . 


I2t» 


1  1  ne  no 
pass  I 

no Int  f  1  le 

rf cbaddr 

rfcb       based 

wfcb( 33) 

c  iirao  urcerecs  ize 

no  look 

pro  due  t  ion 

arr* loc ( 5 ) 

arrSnuin 

suhSprocS loc 

s  ubSproc  SvarfSnnin 

arrSd  i  tn 


diskoutbnff(  Intrecsize 


addross  , 

b  y  •  •?  i  n  i  t  i  a  I '  t  r  lie  )  . 

byte  initianfrjlse). 

byte  jnitial'fal^e). 

add  re 5^ s     i  n  i  t  ia  1 '  5 ch)  , 

rlcbaddr( 33)     byte. 

by»8     InitiaKO.'  ','ain 

byte     Ini  t  la  ICsourrerecs  ize)  , 

byl--  . 

byte  . 

add;'ess  . 

byt< 

a  d  d  r  o  s  ? 

byte 

byte 


,0.0,9.0) 


byt^ 


/«     the 
dec  lare 


followlnpT    global    varlablf^s    are    nsed    by    the    scanner         ^' 


token  byte  . 

ha  s  he  o  d  e  byte, 

nex  tchar  byte  , 

accurn(  identsize) 
con  t  byte ; 


'*    *yp«    of     token    just    scanned    */ 
/*    has    value    of    current     token    */ 
."'    current    character     from    ge  tchar    ^/ 
byte,  /*    holds    current     token.    */ 

'"t     iudicatei!    Q'-ciud    waa     full,     still     more    */ 


/*  symbol     table    global     variables  '^^' 


current    entry    */ 

of    symbol     tabled/ 


declare    base  address.     /^    base    of 

has htab le ( hasht b Is ize )     address, 
sbtbltop  address,      '•''^current     top 

sb  tb 1  address , 

pti-     based     base     byte,     /*first     byt*'     of     entry 
aptraddr  addr<^ss,     ^''^ utility    variable     t" 

addrptr    based    aptraddr    address, 
byteptr     based    aptraddr    byte, 

prlntnaine  address,     /*se  t    prior     to     lookup    or 

symhash  byte  . 

prev«blk«leve n  12)     byte. 
prev«lndex      byte     in  1 t la  1 ( 253)  . 
s  t  epSf lag  byte, 

blkScnt  byte     inJtial(O). 

blkS  level  byte     initial(l)! 


access 


tablet;/- 


enter*/ 


dec  lar* 
,34 
.53, 
.52. 
.11, 
.4.6 
.39. 
,43. 
.  13. 
.33, 
.  19, 


rea 
35, 
33. 
33. 
14. 
.  10 
40. 
47, 
36. 
33. 
27. 


d  I 
39, 
33, 
53, 

34, 


da  t 
40. 
33. 
49. 
51  . 


24.33 
42.43. 
48.50. 
2.3,9. 
44.43, 
31  ,34, 


a(0,39 
42,43, 
53,  15, 
55,2,3 
55, 13. 
.55. 16 
48,53, 
53 , 34 . 
20.29. 
47,30, 
35.39, 


.  12,  15 
48.53. 
33. 33. 
'>  .  20 . 
7  ,  4  .  3.5 
.7.  11. 
33 , 32 . 
35.4,  I 
30.49 . 
34.7.  1 
40.42, 


,33 
3."  . 
23, 
49. 
,55 
2,7 
33. 
1  .  1 
•^2, 
1  .3 
43. 


55 

19, 
2.3 
32. 

,  1 1 

14. 
.  12 
33. 
.3  .  7 
46. 


,2, 
20. 

.9. 
33. 
13, 
.  17 
8,  1 
15 
33, 
.  1  1 
35, 


49  . 
26. 
20. 
33. 
14, 
7, 
9,2 
,21 
8,8 
,8. 
7,3 


32.33,33,5,8,8, 19.20,26,27,31 
27.3  1 .34.35.39,40.42,4^,48,53 
28,49,32, 33,35,55,2.3.9.20,49 
2 . 49 , 33 . 35 . 2 . 49 , 53 , 2 , 2 , 2 , 49 , 55 
2,  14.  14.2,8,  11.7.  11.7.  11,  11.2,8 
1  I  .7.49.33 ,  11,  1 9. 20. 27. 31 .34.35 
0 . 27 . 3 1 . 33 . 34 , 35 , 39 , 40 . 42 , 43 , 44 
.7,  11,7,  11,4.  11,  1.7.  12.  15.32,7 
.8.2.2.2,25.39,49,52,53, 18, 11 
1 1 , 4 1 , 33 . 38 . 30 . 5 1 . 46 . 22 , 37 , 7 . 22 
.5,9.0) ; 


dec  lare  lookl  .lata(0.12,15.O.  13. 0.2. 0.2, 0,1  1,0,  14, 0.8,  17.  32, 0,2.  14,0.  14 
,0.  11,0.  14,0,  11,0,  11.0,2,  14.  17.0.6.  10,0,6,  10,0.6.  10,0,6,  10.  t). 6.  10,0 
.6,  10. O,  16.0.  16,0,  16.0.  17. rt,  I  1.0.  25. 0.25,0,  11.0,  11. 0,33,  44. -13.  47,  50 
.34.0.  1  1  ,0.33,0.46.0.33,44    J'3.  47.30.34.0,32,0.22,0,46,0,3.  3    9  ,0)  ; 

declare    applyl    da  t  a(  0  .  O  ,  1  .  O  .  O  .  O  .  o  .  ().  13  1  .  1 43  .  O  .  0  .  149  .  0  .  0.  O.  0  ,  44    0.14.15 

.40.  93,0.. 37.  93,  143,0.37.  1 4  i .  t» .  0  ,  0  ,  27  .  1 30  ,  0  .  3  .  4  .  32  .  95  ,  0  .  0  ,  3  ,  4  .  6  ,  22  ,  24 
,  33  .  36  .  3'» .  36  .  94  .  93  .  I  \?  .  I  22  .  1 30  .  134.  136,  137.0.0.7.8.  10.  16.  17.0.  11.  18 
.0,26    O,  124.0.3. 4, 3.  (4.  1 3 . 27 . 32 , 37 . 40 . 93 . ^3 . 96 .  10  1  ,  143.  130.0 ,0.0,0 
,  63  .  0  ,  0  ,  0  ,  O  .  0  ,  0  .  0  ,  0  .  O  .  O  .  o  .  o  ,  rt  .  V)  .  O  ,  42  ,  46  .  '» ,  6  1  .0.0.0.0.0.  14.  1 ". .  37  .  40 
.  93  .  U'  1  .  1 43  ,  0  .  0  .  3  .  79  .  '1 .  :^n  .  o  .  3  ;  ,  3.1 .  o  .  I) .  O  .  O  ,  O  .  O  .  0  .  0  .  0  ,  0  ,  0  ,  O  .  1 1:3  .  0  .  0  ,  0 
,0.0.0.0,0,0.0.0,0,  1  -i  .  1  ."^  .  2r  ,  37  .  40  ,  9  3  ,  !  '^  '  .  143,  1  3  0  .  O  .  0  .  O  ,  .1 2  .  <V  O  .  O  .  0  ,  0 
■>   ; 


declare    read2<234)     addr'>«'a     ini  »  In 


(0. 195,331.302.54 
,29.  196.32.36.290.38,  193. 
.  193.41.336,42.46.33.  139. 
.264.263.262. 160. 161.3,7, 
, 263 , 262 ,160, 292 .157, 162. 
,  ."52 .  69  .  229  .210.  275  .  62 .  367 
.  13.36  1  .21  1  .353,3.^2.274.  1 
.29  1 .294,217. 138. 163.269 
.37. 1^4.281 . 14,28.29.32.3 
.49.33.36.  139,280.282.  13^, 
. 26  1  .  154. 327 . 3 1 8 . 26 l . 24 , 3 
, 354 . 293 . 299 .301.31.40.26 
. 297 . 304 . 66 . 296 . 303 . 15. 19 
.36,290.38, 193.41 .336.42. 


.16  1  ,4.264,2 
41 .336.42.46 
344.3  10.309. 
1 6,  2'^,  264,  26 
343.298. 157. 
36.3  228.  283 
1 . 18. 191 ,208 
28.29.32.36 . 
f«  ,  268.290.  38 
.  154.327.370 
> , 4 . 7 , 1 6 . 29 . 
4.  263,262.27 
,34  1 . 163,270 
V^ , 1^6,260.8 


63.262,  1 

.53.  150, 
3'>8,  333. 
3.262.  16 
162, 5,20 
.3<;3,285 
287 , 26 . 
290, 38.  1 
, 195.41 . 
.295.302 
34.35.26 
. 2  !  . 65.2 
.30. 5  1  .4 
.'J,  17.0) 


60.  10,353.358.2 
28.29,37  1 ,32,36 
35.70.289.3.7. ' 
0,312.313.4.7. \ 
8.300,  157.  1*>2.  J 
.285.360.357.27 
207.209,6,3  1  I  .1 
95,41 .336,42,46 
336.42,  155.  136. 
.362.364,284.20 
4.263.262. 160.  t 
68. 155, 136.214. 
5,30,317.323.30 


3 

,290,38 
6,29,33 
6 , 29 , 264 
0 . 25 , 57 
9. 12.356 
2.243 
,53,  159 
214,46 
6.  133 
93.359 
49  .  56 
.28.32 


dec  In  re     l'^ok2(  101)     addres"?     liiiMal 

(0,2,2, 328 , 23 , "29 . 43 , 2 12 . 44 . 2 1 5 . 47 . 307 . 48 . 27 1 . 240 . 265 
, 240 , "8 . 59 . 39 . 265 . 60 . 263 . M . 303 , 63 . 273 , 64 . 277 , 67 . 206 .68.68. 265 . 240 
.71,71.  246  .72.72.231.  7rj .  73  .  250  .74.74.  247  .75.75.  248 .  76 ,  76  ,  249  ,  80  .  252 
,81 .253, 82. 254. 88. 257. 92. 2n7.  120.319.  121 .320,  127.366.  128,365.  131 .  131 
.  131  .  13  1  .  131  .  13  1  .35  1  .  139.238,210,  142,  144.202.  145.  145,  145,  14r. .  145,  145 
.349.227.219.  147,333.  149.2;)0.  132.  152,  152.244)  ; 


declare    apply2<  177) 


.  124 
.97. 
.  104 
.  171 
.  176 
.  134 
,93 
.233 
,  129 
,  180 


a  d  d  T*  e .'?  s 
( 0 , O . 77 
, 141, ia4.216.2in 
143.342,343.22  1 . 
.339.326. 109.241 
.  167,  174,  175,  173 
,89.87.87.87.237 
.237.70.234,96.233 
93,93,93,93,94. 130 


Initial 
.  77.2r'.0.  101  . 
.  198.373.372 
13  1.  I.T  I  .338. 
.  1 03 ,  1 06 . 245 
.256 .255.83, 
.  199,9  I  .  177. 
113. 118, 1 
148.  188.  1 


126.79.232. 1 12. 140. 125. 136. 
350 . 1 82 . 133. 239 . 239 . 239 , 239 
236. 123,369, 138) ; 


194. 192. 100. 1 15. 1 16. 1 14. 189,201.203 
. 224 .197. 222 . 1 87 . 223 ,219. 22^ , 226 . 220 
242.23  1 .95 . 108. 1 10.314.313.283.316 
. 107.340. 111. 103. 190. 168. 17" . 172. 169 
258. 176. 1 76. 90. 87. 87. 87.87,87,87.87 
272.270. 183.99,98,276. 137.  M'2.266 
19.1  17,306,308.  132.84.83.  13,'>.93.93 
46, 179. 178,323.322.321.324.06,330 
337,334, 183.204, 150,346.347.348. 186 
. 239 , 239 . 239 . 239 . 239 , 259 , 122. 205 .181 


dec  lare 
,43 

,  85  .  85  ,  86  .  87 
. 108, 109, 111 
, 122, 122, 123 
,  150.  151 ,  132 
,203,204.203 
,223.70.224 


Indexl  data(  0.  1  .2 
70.46,70.47,6.238 


90,91 ,92 
1 13. 103. 
125. 126, 
171  ,  173, 
206.207. 
70.70.226 


238,249,250, 1 .4.6.8. 
33,33,37,39,61 ,63.63 
7.8.8.8,8,8.8.8. 11.1 
24.28.28,28.31,32,32 
42. 60. 60. 60. 60. 60. 60 
90,91  .91  ,92.92.92.92 
103,  104,  104,  103,  106. 
109. 109, 109, 109. 1 12. 
130. 130, 132. 132. 135. 
143. 144. 143. 146. 148. 
153.  156.  157.  157.  158. 
,  176)  : 


50. 

49. 

93. 
1  14. 
70.  1 
176. 
207. 
,227 
10.  I 
.67. 
2.  14 
.33. 
.61  , 
.93. 
106  . 
I  12. 
136. 
148. 
138. 


70.4.70. 
30,50.60 
94.99.95 
116. 1 17. 
28. 128, 1 
177, 179, 
70,208.2 
,228.229 
2. 14. 18, 
69,71 .78 
14.13,1 
33 . 33 . 33 
61  .61  .67 
93.95.96 
106. 107, 


6.6.11. 
.59,60. 
,96.97. 
117.  1  17 
29,  131  , 
181 . 183 
09.212. 
.230,  13 
21.23.2 

80 . 82 . 
5.  16,  16 

33.33. 


1  14, 
136, 
149, 
139, 


115. 
136. 
130. 
169, 


.67, 
.97, 
107, 
1  15, 
136, 
150, 
169, 


70. 

97. 
107 
1  16 
137 
13  1 
170 


6.6.1 
68.70 
98.99 
.  117, 
132,  1 
,187, 
212  2 
.3  .  233 
5.27. 
84.9  1 
.  16.  1 
33  .  33 
70 .  70 
98.99 
.108, 
.  1  16, 
.137, 
.151. 
.  170. 


2.  13 
.70. 
,  100 
1  17. 
34,  1 
188. 
13.2 
.213 
29.3 
.93, 
6,  16 
,33. 
,70. 
.99. 
108. 
1  17, 
137. 
152. 
171  . 


. 14.28.6 
135,78.7 
,103. 105 
1 17, 119, 
35,70,70 
189, 190. 
13,214 
.234.234 
1 .35.38. 
93,97, I . 
.  17,  17.  1 
33.33.36 
70,72.72 
100.  101  . 
108, 108. 
1 18. 126. 
138. 139. 
152, 153. 
!71 , 173. 


6  6.42.43 
0 . 135,81, 82 
,90,  106,9  1 
12O.30. 122 
. 59. 148, 149 
19 1 .201 .202 
0.213,221 

236.233 
41 .44. 47.50 
2.4.4.5,6.7 
9. 19.24.24 
36 . 4 1 . 42 

74,74 

102, 103 

108, 

127, 

141  . 


102, 
10." 
127, 
140, 


154. 154 
174.  173 


108 

130 
142 
133 
176 


dec  lare 
,2, 

.  1. 
.2, 
.  1  . 

.  2 . 

.  1  . 
.0, 
.  I  . 
.2, 

.2. 


nd 
I  t 
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1 . 

2. 
I  . 
1  . 


0. 


e3t2  data<0. 
. 1,9,9.8. 1 . 
1.1,2.1.1.2 
,8.8.  1  ,  1  .  1  . 
1 . 1 . I . 1 .8,6 
4,3,2.2.2,2 
2.0.0.2.0,2 
0.1,1,0,0.0 
2,0.0,0,0.0 

o  o  o  I  '^  I 
0.0.1.1.1,1 
1 .2.3,2.0.2 


1.2 

8.2 

2 . 

,  I 


.9.1 

.8.( 

1  .2, 

.  19. 

I  ,0, 

4.3, 

O.  1  , 

O  .  O , 

f> .  2  , 
•">    -T 

♦>  .  ;>  , 

2.  .1 


8.3 

.3, 

.  I , 

,8. 

.  O. 

.  O. 

.  I  . 

.  1  . 

.  I  . 


.  1  , 

13. 
2  2 
2.  2 
I  .  i 
3.2 
1  .2 


O, 


1,3. 

2    "^ 

4 

I 

1 

I  ,  I 
1  .  I 
1  ,2 
2.   I 


1.1,1 

1,1.1 

.1.2. 

.1.1. 

,  13,  I 

.2.2. 

,0,2. 

.0, 

.  I  , 


1  , 


1.1, 
o .  o 


4,  14. 
,3,1. 
9,1.1 
1  ,  10, 
,f^  ,2, 
2.2.2 
'-V  1.0 
0.2.2 
2.0,2 


1  ,2. 
1,1. 

o     n 

1.1. 
1  ) 


2.  1  . 
0.0, 


5.5,5. 
1.1,1. 
,1,2.1 
1.1,1, 
1,2.1. 
.2,7.2.2 
.0, 1.2.2 
.  3  .  1  .  ; .  0 
,2.2.  1.2 

O       O       ()       T 

0,3.3.2 


1 ,8. 1,8 

1.1,1,1 
,1,1,2.1 
1.1.1.8 
.3.3.2.2 


.7.2. 

.0.0, 

.2.0 

.1.1, 

.  1  .2, 
o     o 


/*  global    procedures  */ 

raonl:     procedure ( f , a) ; 

declare  f    bytft , 

a    address ; 

go     to    bdos  : 
e  nd    too  n  1  ; 

mon2:     procedure    (f,a)     byte; 

declare    f    byte,    a    adJre!*'?; 
go    to    bdo9 ; 
e  nd    mo  n2 ; 

mon3J  procedure ; 

/*used     to    return    to     the    system-'?:/' 

go  to    boo  t  ; 
e  nd    mo  n3  ; 

move',    procedure    (a,b,  1)  ; 

/*    moves    from   a     to    b    for     1    bytes    (  1    <     253)     ^--^ 

declare    (a,b)    address, 

(s    based    a,    d    based    b.l)     byte; 


do     whl  le     (  1:  =  1    - 

1) 

<  > 

d=s;       b=b    + 

1  ; 

a 

end  ; 

e  nd    mo  ve  ; 

fill:     proc    (a. char, n): 

/*    move    cbBr     to    a    n    t  Inies    *'' 

declare    a    addr  .  (  c  liai* .  n.  des  t    based    a)     byte 
do    while    (n    :=    n    -1)     <>    255: 
dest    =    char; 
a    =    a    +     1  : 
end  ; 
end    fill; 

read:  procedure; 

declare     tojafg-leCS)     byte: 

toggle    =     1; 

call  monl(10,.to  gg  1  e  )  ; 
end  read; 


printchar!  procedure(  char )  ; 

declare  char  byte; 

call  monl(2.char); 
end  pr  1  n  tc  har  : 

print:  procedure ( a) ; 

declare  a  address; 

call  monl(9,a); 
e  nd  print: 

dlskepr!  procedure; 

call  pr In t ( . ' de     •' ' ; 

go  to  boo  t  ; 
e  nd  d  1 «  ke  r  r  ; 

open§9onrce  f  I  le  :  procedur«»  ; 

call  move(.'alg'.rfcbnddr->''?.3); 
rfcb(32)  =  9; 

If    raon2t IS.rfcbaddr^     =    25'     then 
do; 

call    pr  I  n  t  (  .  '  n^    *  '  ^  •. 
go     to    boo  t  ; 
end  ; 
end    openS'^ource  f  i  le  ; 

c  loseS  1  n t#f 1  le ■     procedure     \ 
/*■■    c  loses    a    file    */ 
I  f    mon2<  16  ,  .  wf  c  b  )     =    25.')     1  hv-n 
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call    d Iskerr ; 
end    cloaeSlntSflle; 

se tupSlntSf 1 le :     procedure: 

/*      se  tupSintSn  les»    a    new    fUe    ^/ 
If    nointfile     then    /*only    ranke     file     If     this     toggle     Is    off    *■/ 

re  turn; 
call    mo  ve(  .  r  f  cb  ,  .  wf  r-  b  ,  9)  ; 
wfcb(32)=0; 
call    tnonl(19,.wfcb); 
if    raon2(22. .wfcb)     =    255    th^n 
oalldls«kerr! 
end    f e t up* int*f 1 le « 

rewind  8s  oiirceSfl  le  :  proc  ; 

/*cp'''m    does    not     require    any 
action    prior     to    reopeninij^/ 
re  turn ; 
end    re  wi  nd  •soorceSf  1  le  ; 

read#80ur«?e$f  i  le  :  proc    byte; 

declare    dent     byte; 

1  f  (  d<nt  :  =raon2(  rf  1  le  .  rfcba'Mr>  )     >     flleeof     then 

call    d 1 s  fce  r  r ; 

ret  urn    dent: 
end    readSsio  arceS  f  I  le  : 

vr  1  tei 1 ntSf 1 le :     procedure; 
If    nointfile     then 

re  t  arn: 
call     monH26,.dlskontbuff>; 
If    mon2(  2i  ,  .  wfcb)     <>     0     th*>n 

call    dlskerr; 
call    mon  H  26  ,  80h)  ;     /"*■    re^e  r    dina    address    5i-/ 
end    wr)te«lnt»fllei 

crlf :     procedure ; 

call     pr  lntchar(  cr)  ; 

call    printchjar(lf); 
e  nd    c  r  I  f  ; 

printdec:     procedure ( vn lue ) ; 

declare    value    addresa ,      1    byte,    connt    byte: 
declare    dec  1 ( 4)     address     1  n i t ia  1  (  1000 .  100 ,  i« ■  1 )  ; 
declare     flag    byte; 
f lag    =     f a  Ise ; 
connt    =    30hi 
do     1    =    0    to    3j 

do    whl  le    valne    >=    decHl'; 

va  1  tie    =    va  I  ue    -    d  ec  •.  (  i  ''  : 
f  lag=     true  i 
c  o  un  t    =    c  o  un  t    +     1  ; 
end  r 
If    flag    or    (1>=    3)     then 

call    prlntchflr(  count !?  ; 
else 

call    prlntchar<'     '): 
end; 
re  turn} 
end    pr In tdec ; 

pr lnt*prod : proc  j 

call    print(.'     prod    =    •'); 

cell     pr  In  t#dec  (  produc  t  loii>  ! 

call  cr 1 f  ; 
end  printSprod; 

pr In tS to ken: proci 

call  prlntC."   token  =  S'); 

call  pr  1  n  tSdec  (  token.'  ; 

call  c  r 1 f  ; 
end  pr  1  n  tf  toke  ji: 
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eroi  t :  proc(  objco'le)  ; 

declare    objcoile    byte; 

If  (bnf  rptr  •■  =buf  fptr+1)     >=     Intrecslze     then    /*wrlte     to    disk*/ 
do; 

ca 1 1    wr  i  te«lnt«f \ le ; 
buf rptr=0; 
end  ; 
diskoutbuffC  buffptr)=objcode; 
end    emit; 

clearSl IneSbuff: pro ce dure : 

call     fi  1  K  .  Unebuf  f  .  *     '  .  conbuf  fg  ize  )  ; 
end    c  lear*  1  iiieSbuf  f  ; 

1  is  t I i  ne :     procedure (  length)  ; 

declare     (  lonj^th,  I)     byte; 

call    pr  i  n  t  Sd  e  c (  1  I ne  no )  ; 

call    pr  In  t8dec(  prevS  I  ndex+ )  ■*  ; 

call    pr  in  tsBcharC  '     '  )  : 

do     I    =    0    to     lengrth; 

call     printchar(lliiebuff'l)>; 

end  ; 

ca  1  1    cr 1 f ; 
end     1  Is  t  1  ln«» ; 

/«  the    followlngf    varlahlt=>    are    used    by    the    parser  *^/ 

declare     listprod  byte     in  I t  ia 1 (  f a  lae)  , 

lower  to  upper  byte     initiaH  triie  )  , 

listsource  byte     in  1 1  i  «  1  (  f  a  Ise  )  , 

debugrln  byte     initialCfalse), 

list  token  byte     initial(false). 

errse t  byte     in i t ia 1  (  f a  Ise )  , 

comp 1 1 inff  byte , 

codes  Isse  address,        /=*    used     to    count    size    of    code    ar^a    */ 

prtct  address     •  ni  t  ia  1  (  0f  f  f  eh>  .       /^t:    used     to    count    size    of    prt    «/ 

/*    V9rla.bles    used    durini?    for     loop    code    generation    */ 

forcount  byte     inilial(9), 

randomflle  byte, 

flleio  byte     3 n i t ia 1 ( f a Ise ) ; 

/*  scanner  pror*»dures  */ 

yetchar:  procedure  byte; 

declare  addeof  data  ("eof".  eolchar.lf):  /*  add  to  end  if  loft  off  »;/ 

nextSsourceSchar :  procedure  byte; 

return  sourcebuf fC sourceptr) ; 
end  nextfsourceSchar  i 

checkflle:  procedure  byte; 
do  forever; 

If  (  sourcep  tf  :  =source  p  tr-*- 1 )  >  =cursourcerecs  ize  then 
do  ; 

fonrceptr =0 ; 

if    read«sourceSr 1  le= f  1  leeo r     then 
re  turn    t  rn<^  ; 
end  ; 
i  f  (  next  char  !=  next  fio  ii-r  <-*o  har)  <  >  If     t  he  n 
re  tnru    false: 
end  ; 
end    "-  heckf  lie; 

If    checkfile    or    (nextc  lia  r     -     "  o  f  f  i  1  1  f  i- )      t  he  n 
do;     /*    eof    reai-h"'l     ^/ 
call    mo  ve  (  .  a  d  d  ^  .  C  .  =  }>  1  o  c  ,  3 )  ; 


sourceptr    =    0; 
ne X tcha r  =  nextSso urease  ha r ; 
end  t 
1  lnel>uf  f  (  1  Ineptr  :  =  llnep  tr    +    I)=nextchar;    /*outpat     line*/ 
If    nextchar       =    eolchar        Ilien 
do  I 

1  Ineno    =     1  inewo    -»■     1; 
If     list»o«r>:r       tlien 

call     1  1  s  t  1  i  ne  (  1  1  ne  p  t  r  -  1)  t 
1  1  ne  p  t  r    =    0  ; 
call     clearlinebuff; 
end  ; 
if    nextchar    =     tab     th«?n 

nextchar    =     '     '  ; 
return    nextchar; 
end    a; ft  tcfaar  ; 

g^e  tnob  lank.:     procedure; 

do    whl  le(  (  ^  tclaar    =     '     ')     or    (nextcliar    =    eoffiller)); 
e  nd  ; 
e nd    ^e  t no b  la nk ; 

t  It  le  ^procedure ; 

call     pr  1  n  t  (  .  '  a  1  go  1  -m    v»»  rs>     1  .  0#  '  )  ; 

call    cr 1 f  ! 
e  nd     t 1 t  1  e  : 

pr  intSerror : proc ; 

call     pr 1 n tdec ( errorcoun t ) T 

callprlntchar('     '); 

call     pr  int(  .  'error(s)     dete<.'tedS')  ; 

call  cr I f  ; 
end  pr 1 n tSerror ; 

error:  procedure  (  errcode '  ; 

declare  errcode  addres?. 

1  byte; 

errorcount^errorcount-'- 1  ; 
cal 1    pr lnt( . ' x«*« * ) ; 
call    pr  1  nUdec(  1  Ineno  )  ! 
call    prlnt(.'       error    3>' M 
cailprlntchar(''); 
call    pr  In  tcharC  hlg:h(  errood-^  )  )  : 
cal  I    printchar(  low(  err  code))  ; 
ca II    cr 1 f  ; 
call    prlntSprod; 
If     token=eofc     then 
do  5 
call    prlnt*error; 
call     mon3 ; 
end  ; 
end   error; 


tnl f la  1 iaetscanner :    procedure; 
declare    count    byte; 
call    openSsource f  1  le ; 
1 Ineno .  1  inep  t r    =    0; 
call    c  learS  1  lne«buf f ; 
■ourceptr    =     128; 
call    dpetnoblank; 

do    >.hl  Ic    nextchar    =     '•*  ; 
call    ge tSnoSb lank: 

If'count     :=     (nextchtir    and    3fh)     -     'a')     <=    4     then 
do    case    co  un  t  ; 

if    pa 5? SI  I     then     llstsonrct'    =     trne; 
lis  tprod     =      t  rue  ; 
no  i  n  t  f  1  1-      "     1  rue  ; 
llsttoken    =     true: 
de  bu(5  in    =      f  rue  ; 
end  !     /:«    o  f    ^as*»    :K/' 
call    g«»  t  no  b  lank; 
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end ; 
end  Inl t la  1 izeSscanner ; 


/*  scanner  */ 

scanner?  procednre; 

pat  Inaccuni:     procedure  i 
ifnotcontthen 

do; 

accuin(accum    :=    accum   +     1)     =    nextrhar; 

hashcode    =     (hashcode    +    nextchar)     and    hashinaak: 

if    accum   =    31     then   cont    =     true; 

end  ; 
end    putlnaccum; 

pntandgret:    procedure: 

call    putlnaccum; 

call    g^etnoblank: 
end    pu  tandgre  t ; 

putandchar:     procedure; 

call    put Inaccum; 

nextchar    =    gretchar; 
end    putandchar; 

numeric:     procedure    byte; 

re  turn(  nextchar    -      O")     <-    9; 
end    nuraer  Ic  ; 

lovrercase:     procedure    byte; 

return    (nextchar    >=    61h)     and    (nextchar    <=    7ah)  ; 
end     lowerfcase; 

dec Iraa Ipt : proc    bytei 

re  turn   nextchar=  '  .  '  ; 
end    declmalpt) 

conv^l  to  Supper  :  proc  \ 

If     lowercase    and     lowertoupper    then 
nextcliar=nextchar    and    ofhj 
end    conv* toSupper ( 

letter:     procedure    byte; 

call    conv< toSupper I 

return    ((nextchar    -     'a)     <=    25)    or     lowercase; 
e  nd     letter; 

alphanuni-'    procedure    bytes 

return    numeric    or    letter    or    declmalpt; 
end    a Iphanum; 

spoO  Inuner ic :    procedure: 

do    whi  le    nunier  Ic  ; 
call    putandchar: 
end  ; 
end    spoo Inumer Ic ; 

se tupSnext Sea  1  1  :     procedure: 

ifnextchar='th'='U 
call    gret  no  blank: 

cont    =     false? 
end    se t apSne X tSca 1 1 : 

looknpt    procedure    byte; 
dec  lare    maxrwl  njif     lit        '  9  '  ; 
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declare  vocab  (!a  ta(  6, '<','(*,'  +  '.  5dh,  7ch. 
,•:'. 5b  h ,•=',•**',':=•.' d  o ",' go '.'  1 f • 
,  'end'  ,  ' for' , 'not'  ,  'pic' .  *  tab'  ,  'case' 
.'step',  'then'.'  array'  .'b-^ffin*.  'close 
,  ' s  tr Ing'  .'decimal'.'  Initial'.' 
,^  CO  mme  nt'.'external'.'fu  no  tion 
declare  vioc  da ta( 0. 1 , 16 . 32, 33 . 81 . 1 1 1 . 1 17 . 152 . 168, 177) 
declare  vnum  da ta( 0. 1 . 16 , 24, 3 1 . 38. 44 . 45 , 50 . 34) 
declare  count  da ta( 0, 14, 7 , 6 , 6 . 3 . 0. 4, 1 , 0) ; 
declare  ptr  address,  (field  based  ptr)  (9) 
dec  lare  1  byte ;    • 


*'.')'.':','-','/*,',•,'>• 
' o  f '  ,  *  or '  ,  '  to '  ,  ' eo  f '  ,  ' and  ' 
'else'  .  'file'  ,  'go  to'  .  "rend 
,  '  un  til','  wh  i  1  e  '  ,  '  wi-  i  t  e  ' 


n  t  e  ge  r  '  ,  '  •wr  1  t  e  o  n ' 
.  *  procedare ' )  : 


byte  ; 


compare:     procedure    by*^e; 

dec  lare     i    byte ; 

i    »    0? 

do    whi  le    (fieldM)     =    accum(  i     :=     i+     l))andi<=    ace  urn; 
end  t 

re  turn    1    >     accum: 
end    compare  j 

If    accum    >    maxrwlng    then 

re  turn    fa  Ise ; 
ptr=vloc( accum) + . vocab ; 

do     1  =  vnum(  accum)     to    ^ -v-numC  accum) +count  (  accum)  )  ; 
if    compare     then 
do  ; 

If     i=50    then 

token=coiiinient  ; 
e  Ise 

token=  i  ; 
re  turn    true : 
end ; 
p tr  =  p  tr+accum; 
end  ; 

re  turn    fa  Ise ; 
end    lookup ( 


/*  scanner    ma  in    code  */ 


do     forever; 

accum.     hashcode,     token    =    0; 
do    while    nextchar  =  eo  Iclinr  ; 
call    get  no  blank; 
end  ; 
IfCnextcluir    =    s  tr  i  ngde  1  im)     or    cont     then 
do;     /  *    found    string    ^^ 
token    =    str  ing; 
cont    '     false; 
do     forever; 

do    while    ge  tchar    <>    gtrlngdelim; 
call    putinaccum: 
If    cont     then   return; 
end  ; 
call    getnoblank; 
If    nextchar    <>    strlngdellm    then 

re  f  nrn : 
call    puts InSaccum; 
end:    /*    of    do    forevf-r    */ 
end;    /«    of    recognizing    a    string    ^'' 


else     If    numeric    or    decimnlpt     f h°  i 
do:    /«    have    digit    t. 

token    =     Intfger'^: 
do    while    nex  tr  hir=  '  ** 
nextchar=ge  I .  Ii;\r: 
«»nd  ; 

call    spoo Inumor ir : 
If    dec  Ima  Ip  t     th,>n 


/*e I  ira    lead  ing    zeros*/ 


dot        ' 

f  o  ke  n=  d  e  c  I  raa  I  : 
call     piitaiidcliar ; 
call    apoo  1  nunier  Ic  ; 
end  I 
if    accuni=0    then 

haehcode^    afcimf  accum    :=     1)     =     '0' 
call    se tupSnextSca 1 1 t 
return; 
end;     /*    of    recogrulzine    numeric    constant    */ 


elseifletterthen 

do;     /*    have    a     letter    "*;/ 
do    while    alphanum; 

call    piitan'lc  liar  : 
end  ; 
if    not     lookup     then 
do; 

token    =     identifier; 
call    se tnp«next S^a 1 1 ; 
re  tnm; 
end  I 

else    /*     is    a    rw    but     if    comment    skip    «/ 
If     token    =    CO  mine  n  t     t  he  n 
do; 

do    while    nextchar    <>      ';'; 
nextchar    =    getchar; 
end  : 
call    ge tSnoSb lank: 
end  ; 
e  Ise 

do: 

call    '=!f^  tSnpSnextSca  1  1  ; 
re  turn ; 
end  ; 
end;     /"*    of    recognlzluj?    rw   or     Ident    */ 


e  Ise 
do?    /*    special    character    "C/ 
if    nextchar    =    25h    then 
do  ( 

ne  X  t  c  ha  r  =  gre  t  c  ha  r  ; 

do    while    nextchar    <>     25h; 

nextchar    =    getchar: 
end ; 

call    ge  ttfaoSb  lank; 
end ; 
e  Ise 
do  J 

if    ne X t c ha r    =     '  :  '     t lie n 
do  } 

call    pat and char; 
If    nextchar    =     '  =  "     then 
cfl  1  1    pntandge  t ; 
end  \ 
e  l»e 

If    ne  X  t  c  ha  r    =     '  *  *     t  he  n 
do  1 

call    putandchnr: 
if    nextchar    =     '^'     tlien 
call    pii  tandge  t  ; 
end  > 
else       call    pntand^et; 
if    not     lookup     tlien 

call    errorf'lo'i: 
call    ee  tiipSnextfrn  I  I  ; 
re  t  urn; 
end : 
end;     -'»    of    recognizing    sj.clal    char    f.' 
end;        /*    of    do     forever    * 
end    scanner;     /*    end    of    s-^nmif  r    t./ 


/*  procedures    for    synthesizer  '*-y 

/:i:x«;»r:p***x:c**r«*;K><**X*X*«3:*y:3:  ?:■'•  ':v.:^^l:*:l;^^;*;*;1e*^f::■•:•:::(r•i-•f;:?::^.•^»:>:/ 

ini  t la  1 IzeSsymtb 1 : proc ; 
i  f    pass  1     t  hen 
do: 
/*    fill    hashJable    with   O'*-    ^^ 

cal  1     f  1  1  l<  .hash  table  ,  0  .  sh  K  hashtb  Is  Ize  .  2)  )  ; 
s  b  t  b  1    =     .  me  ruo  ry : 
end  : 
/^Initialize    pointer     to     top    of    symbol     ta}>le*/ 
ftb  tb  1  top    =     max    -    2; 
end     Ini t la  I IzeSsymtb 1 ; 

se  taddrp  t  r  :  proc<  o  f  f  9©  t )  ;     -'*se  t    ptr    for    addr    refiprence*/ 

declare    offset    byte; 

aptraddr    =    base    +    ptr    +    o  f  f  se  t  :   '-Spoei  i  t  io  n    for    addr    reference'*/ 
end    setaddrptri 

se  tSb  WM  le  ve  1  :  proc(  le  ve  1 )  j 

declare     level    byte; 

call    se taddrp tr( 6)  ; 

byteptr    =     le  ve  1  t 
end    se  t«b  lk*leve  1  ; 

ST©  thflsh:  proc    byte: 

declare    hash   byte, 
i  byte ; 

hash    =    0» 

aptraddr    =    base    +    2: 
do     I    =     1     to    p  tr ; 

hash    =    (hash  +    byteptr(  n>    and    hashmask; 
end  ; 

re  turn    hash; 
end    g^e  t ha s h ; 

nex ten try: proc ; 

base  =  base  +  pti*  ^    8; 
end  nextentryi 

se  t 1  ink: proc  j 

aptraddr  =  base  +  1  ; 
end  se  t 1  ink:  ' 

hashtb ISo f •syrahash: proc    address; 

return    liashtab  le(  symhnsh)  ; 
end    hashtb  ISo  f  Csyrnhash; 

1  Imi  ts  •■  proc(  count )  t 

/*check    to    see     If    additional    sbtbl    will    overflow    limltsi    of 
memory.     If    so     then    punt    else    return    */ 
declare    count    byte:       ^  fg  ise    being:    added     Is    count    */ 
If    sbtbltop    <»     (sbtbl    +    count)     then 
do  : 

ca  1  1    error(  '  to ' 1  ; 
call    mon3 : 
end  ; 
end     11ml t?; 

se taddr: proc ( loc) : 

/*set     the    address     field    «i><l     resolved    bit*-' 

declare     lor    address: 

call    setadHrptr     (4); 

addrp t  r    =     loc ; 
end    aetaddr: 

lookupScurrentSb  Ik:  proc  (  chkSb  Ik.      t>yt  e  : 
d  e  c  1  a  r «»    o  likS  b  1  k    byte, 
len    byte . 
n    based    prlntnamc    hytf>: 
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base 'hush  to  l»o  f  Ssymhash! 
do    whl lo    base    <>     0; 

call    s«  fa'ldrp  t  r(  6)  ; 

if    byt^ptr    <    chkSb-Ik    th^n 

re  turn    false; 
If    byteptr    =    chkSblk    th^n 
do  ( 

if    (len:=ptr)     =    n    then 


do    whi  le    <  prr(  Ion    *    2) 

=    n(  len»  > 

if    (  len    :=     Icn    -     1)     = 

■     0     t  he  n 

re  turn    true  : 

end; 

end: 

call 

aretlinkt 

bade 

=    addrptr; 

end  ; 

re  turn 

fa Ise  ; 

end     lookuptcurrentfb Ik; 

looknp:proc    byt*"  ; 
declare     testSblk   byte, 

testSlndex    byte; 
testSindex    =    prevS index+ 1 ; 
testSblk    =    bIkSlevel: 

do    while    (test«lndex    :=     testSindex    -     1)     <>     255; 
if     lookup*current$b  lk.(  tes  t»b  Ik.)     then 

return    true; 
teatSblk    =     prev«b  IkS  levp  1  <  r<»5  t*  index)  ; 
end  ; 

re  turn    false; 
end     lookup; 

enter :  pro<'  t 

/'Center    token    reference    by   printname    and    symhash 
into    next    available     locfition     in    the    symbol     table, 
set    base     to    begrlnnin^    of     this    entry    an«i     increment 
sbtbl.       also    check    for    syriibo  I     table    full.       */" 
dec  lare     i    byte , 

n    based    printname    byte; 
cal  1     1  iiBl  ts(  1  :=n+8)  ; 

baae    =    sbtbl  t     /*base     for    Tiew    entry    */ 
call    mo ve ( pr intname    +    1. sbtbl    +    3,(ptr    :=    n)); 
call    se taddrp tr( 3) ;/*3e t    resolve    bit     to    0*/ 
byteptr    =    0; 
call    9e  t 1  Ink: 

addrptr    =    hashtb  Ho  f  •symhat^li ; 
hashtab  le  (  symhash)     =    base; 
call    se  tSb  IkSleve  l(blk«Ievc  1  )  : 
sbtbl    =    sbtbl    +     1; 
end    enter; 

getlenJproc    byte;    /^return    lenarth    of     the    p/n    ^/ 

return    ptr; 
end    ge  i  len; 

getypfe:proc    byte:    /^retorna    t  ypp    of    variable^.'' 

call    setaddrptr    (3); 

return    byteptr; 
e  hd    jf e  t  ype  ; 

«e  tsttb  type  ••  proc  f  s  type  ); /*ent*^r    the    subtype     in    sbtbl*/ 

declare    a t ype    byte; 

call    ge taddrp tr ( 7) ; 

bytep t r  =  »  type ; 
end    setsubtype; 

ffetfparm:     proc    byte; 

call    set3d<lrptr(10>: 

re  turn    by t  pp t r ; 
end    gretparm: 

are  t  sub  typt^  :  proc    by  te  ; /f^ro  t  I'vn    ^'l«»    9  nb  {yp<^  ■>'■/' 
call     se t nddrp t rf 7) : 
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return    byteptr; 
&nd    get9ubtyp«»i 
Betype.'proo    (typ^);    /"stget 
vdec lare     type    byte; 
call    setaddrptr    (3); 
byteptr    =        type  j 
end    se  type : 


typttfleld    =     type>:/ 


ge taddr : proc  address i 
call  se taddrp tr( 4) i 
return  addrptr; 

end  ^etaddr; 


do;  /*    block    for    parser    */ 


/*    pneumonics    for    ALGOL-n   machine       '*■/ 


dec 

lare    nop    lit 

•e- 

str 

t      •  1  • 

Int 

1  it 

'2' 

.       xch 

t        -3' 

led     lit 

•4^ 

deb 

It     •^' 

drop 

1  it 

•6' 

xi  t 

t        T' 

aid     lit 

8' 

a  Is 

1 

It      •  f)  • 

a  Id 

•  10' 

a  is 

t     '  1  !• 

ad  i     lit 

'  12' 

add 

1 

It     -IS' 

sbi 

'  14* 

sbd 

\     •15' 

mp  i     lit 

•  16" 

nrpd 

1 

It     • 17" 

dvi 

•  18- 

dvd 

.     •  l-j. 

dnegp    1  i  t 

•21' 

ne^ 

1 

t     •22' 

c  i  1 

•23- 

cl2 

t     •24- 

dec!     lit 

•25^ 

pop 

1 

t     -26' 

Iral 
ca  t 

•27' 
•31' 

ira2    ] 
bli 

;     '28' 
.     .32- 

brs     1  1  t 

•34' 

bsr 

It     -35' 

Iss 

•36' 

diss 

\     '37' 

al99     1  1  t 

•38' 

gt  r 

It     •  3<*  ' 

dgrtr 

•40' 

sgrtr 

t     '41  • 

eql      lit 

•42" 

de  ql 

t     •43' 

seql 

-44. 

neq 

t     •45^ 

dneq     lit 

•46- 

sne  q 

1 

t     -47' 

ereq 

'48' 

dgeq 

•  40  ' 

sgreq    lit 

•50' 

le  q 

1 

t     -51  ' 

d  leq 

•52^ 

s  leq 

•     "So- 

Ino  t     lit 

•34^ 

dno  t 

1 

t     'SS' 

sno  t 

•56' 

land 

^    •r:7* 

dand     lit 

•JJS' 

sand 

1  ! 

t     -59' 

lor 

•60^ 

dor 

•  6  j  ' 

sor     lit 

•62' 

wic 

1 

t     -63' 

wdc 

'64' 

wsc 

'65' 

wld     lit 

'66' 

wdd 

1 

t     -67* 

wsd 

•68- 

sbr     1 

-     •  6n  • 

bra     lit 

•70' 

row 

1  i 

t     '71' 

sub 

•72' 

rcl     1 

.     •73' 

red     lit 

•74' 

res 

1  1 

t       ^S" 

rd  1 

'76' 

rdd     1 

i.    i 

rds     lit 

•78' 

rcn 

1  ] 

t     •79- 

^<ir 

1  it 

'80- 

s  i  I     1 

.     '81  • 

0di     lit 

'82' 

ss  1 

1  1 

t     '83' 

Sid 

1 1 1 

'84' 

sdd     ] 

'85' 

«sd    lit 

•86' 

opn 

1  1 

t       87' 

els 

1  It 

•88' 

rdb     I 

•S')' 

rdf    lit 

•90' 

edr 

1  1 

Lt     '^\- 

edw 

1 1 1 

•92'  , 

pro 

•<^3' 

sav    1 i  t 

'94'  . 

9V2 

1  i 

t     -95' 

uns 

1  i  t 

'96' 

r  tn    1 

•97' 

dec 

lare    state 

s  ta  tes 

ze  , 

s  ta  tes  tack(  pe 

1  tacks  ! 

ZP 

)     state 

>s  Ize  , 

hashC  ps  tacks  J 

ze) 

byte 

symlocf  p 

9  tad 

LS  Ize ) 

adJre 

>ss  , 

*r loc ( p« 

tackd 

I  Ize) 

addre 

>ss  , 

var(  ps  tacks  l2 

:e) 

byte  . 

type( ps  t 

acks 

ze) 

byte  , 

8  typef  ps 

tack£ 

\  ize) 

byte 

▼arc ( varcs Ize 

') 

byte  , 

var  index 

byte  . 

(  s  p ,  rap .  m 

ppl  .  r 

lo  look) 

byte  , 

ons  tack( 

maxot 

icount) 

byte  , 

c 1 ab In^ 

b  y  f  e     i  r 

li  t la  1( 

2)  . 

clab2 

b  ^- 1  e     it 

lit  lal(23)  , 

c  lab  le 

byte  . 

s  tr0s Ize 

byte     I  r 

li  t la  1( 

10)  . 

decSs l2e 

byte     Ir 

li  t  ia  1(9)  , 

n 

by  f  e  , 

pvnum 

byte     i  r 

il  t  ia  1(0'  . 

sa  veparra 

ad.lrf»9s 

, 

par me     ha 

■«ed    s 

a  v^  pflrm 

l>Vte  . 

fpcoiin  t 

byte. 

ptirmbase 

s'dtlres^ 

, 

procS  t  yp< 

e 

h  ■S"  t  »  . 

(  ptos  t  .  I) 

(■>  y  1 0  , 

pc  oun  t 

•   yt  '^      i  r 

il t  ia  If 

0>  . 

type  fetnp 

J.yt^. 

fflay 

-.yt«. 

Ipcount 

i>y  t  p  . 

s  i  den  t 

.«(l  '1  r-?  sp 

; 
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Initialize  Ssytit  he  si  ze:  procedure: 

codee*  I  ze  ,  rvns  t  ack,  c  laJj  le    -    O: 

prevSludex    =    255; 

blkScnt    =0! 

b  1  k»  1  e  ve  I  =  0  J 
end     Inl t la  1 izpSsynthes Ize ; 


syntheaizo:    proc t 


/■*    ****    synthesize     local    declarations       iki^^t    */ 


dec  1  are 


dec  lare 


s i  rava  r 

subvar 

pro 

extSproc 

bl tSlnSfnnc 

cons  t 

lab 

Integer 

s  tr 

f  I  le  I 

f  unc 

parm 


'Obh 
•99- 
•93 
•03' 
•Oo' 
•06" 
•07- 
•08" 
'  1  ■  , 
•0ch 
•0dh 
•  lOh 


( type 9 p, type mp . type mp n  byte, 

( h .  t  e  mp )  byte, 

( s typesp , 9 typemp . s t yperap 1 )  byte. 

(  hashsp  ,  hashmp  ,  has  hrnpl  ^  byte, 

(  s ym 1 ocsp , 9 ym I oc mp ,     symlocrapl)  address, 

f  sr  loc  sp  ,  sr  locnip>  address; 


/i:         s:x*xs;«xx**  code    generation    proc's  x:k^^t.x^:rx*.         %/ 


copy! procedure 
typesp    = 
typempl    = 
typemp    = 
9  typesp    = 
9  t  ypemp  1 
9  type  rap    = 
symlocsp 
syrnlocmp  1 
symlocmp 
hashmp    = 
hashmpl     = 
hashsp    = 
sr  locap    = 
ar  locrap    = 

end    copy; 


; 

t  ype  <  9  p )  ; 

type ( mpp 1 > : 
type ( rap) ; 

s  type  <  sp)  ; 
=    s  type(  inpp  I )  : 

9  type ( mp)  i 
=    symloc  f  ?p>  ; 

=    sym loc  <  mpp I ) 
=     syml oc  (  mp i  ; 
hash(  mp)  : 

ha9h(  rapp  1 )  ; 
ha3h(  sp)  ; 

sr  loc  ^  sp)  ; 

9  r  1  o  c  (  mp )  : 


«e tsymlocspJ     procedure ( a) ; 

declare    a    address; 

s  yra  1  o  c  (  s  p )     =     a  ; 
e  lid    sets  ym  1  o  c  s  p ; 

se  tsytnlocmp:    procednre'a) 
dec  larf    a    address  ; 
symloc  f  rap)     =    a ; 

end    se tsym locmp : 

aottypos»p:     prnred  ure  (  b  )  ; 

dec  lare    b    byte; 

type ( s  p)     =     b  ; 
end    sett yp^« p ; 


\?,•^ 


setstTpesp:     procedure(b) 
dec  lare    b    byte ; 
s  t  yp''  ^  9  p)     -    b  ; 

end    se  t9  t  ype^p  ; 

setsfy-pemp:     prooedurefb) 
dec  lare     b    byte  ', 
^  t  >'pe  (  Dip)     =    b  ; 

e  nd    s  e  t  s>  t  ype  mp  5 

settypemp:  procedure ( b) ; 

dec  lare  b  byte ; 

t  ype  (  mp )     =    b  ; 
end    settypemp; 


se  tliashmp  :     procedure  (  b  )  ; 

dec  lare    b    byte ; 

hash(  rap)     =    b  i 
end    sf'thashmp; 

sethashsip:     procedure  (  b  )  ; 

dec  lare    b    byte: 

ha9h(  sp)     =     b  { 
end    setliashisp! 

aetsrlocgp:     procedure ( a) ; 
declare    a    address; 
srlo'^tsp)     =    a; 
end    aetsrlocsp; 
getsrlocrap:     proc(a); 
dec  lare    a    bytet 
sr I oc ( mp) =  a  x 
end    setprlocmp; 

getsrloc:     proc    bytej 

call    se taddrptr( 8) : 

return    addrptrt 
e  nd       ore  t  s  r  1  o  c  ! 

genera  te:proc<objcode)  ; 

/*v<T  I  tes    generated    code    and    counts    size 

of    code    area.        *'' 

declare    objcode    byte) 

codes  Ize    =    codes  ize    +     1  ; 

If    not    passl     then 
call    enil  t(  objcode  )  ; 
end    genera  te  : 

grenWlntSv:     proc(a); 

dec  1  are    a    byte ; 

call    arenerate(irol): 

call  generate(a); 
end  nen#int*v; 


Incrf b Ik* le ve 1 :     proc ! 

pre  v«b  1  kSle  ve  I  (  preN-*  index 
blkSlevel    =    blktcnf    +     1; 
b  1  kao  n  t     =     b  1  k«c  n  t  +  t  i 
call     generate(bll); 

end     IncrS'i  1  kS  le  vp  1  ; 


=    prev«lndex+ 1 )     =    blkSlevel 


decrfb IkS le ve 1 :     proc; 

blkSleve)     =    pre v$b IkS I°v"  1  I  pre v$ index) 

prevSlnJeX    =     pre  v«  i  nd»»  k-  1  ■ 

call     genera  te  (  b  Id)  ; 
end    dec  r^b  I  kit  le  vf»  1  ; 

ca IcSvarc :     procedure(b)     nddr^-K; 

declare    b    byte; 

return    var'b)     +     . varc ; 
e  nd    c  a  1  c  S  va  re  ; 
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set  lookup:     proc<=>diire(  a)  ; 

dec  lar«    a    by te : 

print  name    =    ca  IcSvarc  (  a  ■>  : 

s-ymha-h    '     linsh(a); 
end    set  loc  kup : 

lookiip^only:     procedure  f  a  i     byte; 

declare    a    byte; 

call    se  t  loknpC  a  )  ; 

If     lor.k,up*c  urrentSb  Ik',  b  Ih?  le  ve  1 )      then 
re  t  urn     t  rue { 

baseSflat;    =     true; 

re  t  urn     false; 
ead     looknpiioa  1  y : 

f  u  1  IS  lookup  :  pro'^  (  a)     byte; 

declare    a    byte; 

call    set  loo kup ( a )  ; 

If     loo  ku  p     t  he  n 
re  turn    true ; 

re  t  urn     false; 
end    fullStookup: 

norma  18  lookup:     procedure(a)     byle: 

dec  laro     a    by te ; 

If     lo  >kup*on  ly(  a  )      then 
r'»  turn     true  ; 

call    entei': 

re  t urn  fa  1  se  i 
e  nd  no  rma I • 1 o  o  kup ; 

counlpr t : proc  address: 
/♦counts  fhe  size  of  the  prt  »:/ 
return  "^prtct  :=  prtct  •♦-  2': 
end  coun  t  pr  t ; 

g«  n  t  wt>  :  pr'><"  '  a  )  : 

/*    write«i     two    bytes    of    object    code    on    disk    for     literals    */ 

declare  a  address; 

call    jyenera  te(  hlgh(  a)  )  ; 

call    i5enerate(low(a)); 
end    s^entwo  ; 


1  I tera 1 : proc ( a  >  ; 

declare  a  address; 

call  gen  two 'a  or  8000hJ  ; 
end  1  1  tera  I  ; 

se  tcname : proc ; 

pr In  t  name" . c lab lu^j 

3yTnhash=c  lab  le    and    ha s hun s k : 
end    se  tcnatne  ; 

enterfcomp 1 lerSlabelrprocib) ; 
dec  lare    b    byte  t 
If    pnse  1     then 
do: 

call    !»etcname; 
call    enter; 

f- a  1  1    ■'»  t  addr  (  code??  ize    -^    b '•  ; 
end  : 
end    onterScomp  i  ler*  1  abe  I  ; 

se  tScomp 1  lerf  labe  1  : proc : 

dec  lare    x    by t o ; 

r-labie    =     cTable    •♦■     1; 

call    ■se  to  name  : 

1  f     pa«'«2     t  he  n 
X  =  loo  ku  p ; 
end    >»e  t  $<  omp  I  I  o  rS  labe  1  : 

conrp  llerSlab»!:proc; 


in: 


call    «e  t^.-orap  i  lerS  labe  1  ; 
call    gen* two ( ge t addr ^ ; 
end    corap i  1 e r S  1  ab»  I  ; 

setSent*>r:  proc(a); 

declare  (a.b)  byte; 

b  =  c  1  -lb  le  ; 

c  1  a  b  i  e  =  a  ; 

ca  1  J    enterSf'orap  i  lerS  labe  1 '  0)  : 

c  1  a  b  I  e  =  b  ; 
e  nd    set  Se  n  t  e  r  ; 

branchSc lauso t     proc(a)! 

dec lare     a    byte ; 

call    i^enera  te(  a )  ; 

call    CO  mp  i  ierSlabe 1 ; 

call    5ie  t  t  yperap(  c  lab  1  e  )  ; 
end    branc  }iSc  laiise  ; 

processSoaseS  label:     proc(a): 

declar*-'     (a,b,x)     byte; 

b=c  lab  le  ; 

c  lab  le  =  a  ; 

call    g:=  nera  t  e  (  bra  )  ; 

call    lap  t  c  name  : 

i  f    paf»''2    t  hen 
3t=  loo  k.up ; 

call    grenS  t  wo  (  are  taddrl  ; 

c lab  le  =  b ; 
end    processJc as<»S  labe  1  ; 

caseSs  ta  te :     proc ; 

ca  1  I    process  ScaseSla  be  1(  typ'-  (  rtip-2)  )  ; 

n=  n+  I  : 

c  lable  =  c  lable+1  ; 

call  en  terJcomp  i  lerSlabe  H  t"*^  ; 
end  caseS-state; 

1  1  t  load  '•  proc  (  a)  ; 

declare    a    address; 
call    yentifoCa    or    0c0OOh)  ; 
end     1  1  t  load  ; 

9tep#gen:     proc; 

call    genera te( ad i ) : 

call    (genera  te  (  9  Id  )  ; 

call    enterfcomp 1 lerS 1 abe M  01 ; 

call     lit load( 9 Ident ) : 
end    s  tep*i?en; 

chktypl:     procta);     /*    check,    np.sp    to    see     if    they   are    both    decimal    */ 
declare    a    byte;  y*    both    integer,    one    of    each,     or    nlethtr    "^^ 

If     (  9  t  ypeitip=  1  n  t )     and     (  s  fype:^  p=  in  t )     then 

call    ^enerate(a); 
e  Ise 

if    (»  type  nip=  dec  )     and    ' ,«  f  ■!,-pesp=dec  )     then 

call     (;e  nera  t  e  (  a+ 1  )  ;        *    generate    decimal    operator    ""-^ 
e  Ise 

if    •  s  f  ypemp  =  der  >     aii^i     '  s  I  ■v.-pes'p=  i  nt  >      t  hen 
do; 

c  n  1  1    gre  nerate'clP;      '*    con  ve  r  f     lute  gre  r     to    del  rca  I     *  / 
call    jfenera  t  «>  ^  n^  1  >  ; 
end  ; 
e  1  se 

If    (  s  t  ypen!p=  i  n  t  ■     nud    f  3  t  >-pe.<9p  =  <l  f' )      then 
do; 

call    a:«?  ne  r  r>  '  -:• '  •"  I  2)  ; 
call    ^"  ue  IT.  » '  '  a-  I  •  ; 
call     so  t  .5  J  \p.-  nip'  H  ■?  c  )  ; 
end  ; 
e  Ise 

if     t  ypenip'-'  >  f  tiu.'      ir    pa«s2     then 


;oh 


call    error(*nf'>; 
end    chktypl; 

chk,typ2:    proc    byte; 

If    .stypefip    <>     s  type  rep    then 
do  J 

call    error( ' mm' ) : 
re  turn    fa  Ise ; 
end  ; 
return    true: 
end    ohktyp2: 

chktyp3v   proc    bytet 

call    se  ts  typerap(  9  typ»!ip)  ; 

If    (  s  typesp=  Int)    or    ^  3  t  y7>^sp=dec  )     then 
ret  tir  ii    t  r  ue  ; 

ca  1  1    error    (  ' mf ' )  ; 

re  turn    false; 
end    chktypS; 

chktypS:     proc    byte; 

If    (  8  t  ypemp' >  3  tr)     or    '  g  tyi^<r -ap '  >  s  t  r )     then 

re  turn    fa  ise ; 
e  Ise 

re  turn    t rue  j 
end    chktyp3; 

chktyp6!    proc; 

if    pama2    then 
do; 
If    f  9  typemp=  Int)    and    f  s  t7-T.f>sp=dec  )     then 

call    error(  '  Id  '  )  ; 
if    (  typ«mp<  >g  Iravar)     and    ♦  t  ypenip<  >  subvar )     and    (  typemp'' "  f  i  1  a  1 )     then 
do  t 

If    (  typeinp<  >  f  unc  )     or    '  not     f  flag)        then 
call    error( ' as ' ) : 
end ; 
•   ;  ■•         end* 

g^ncont    procC sub  type) » 

declare    (1, subtype)    byte; 
g-enSaccutn:     proc  ; 
if    pa9s2    then 

do     1=  1     to    accumj 

call    emltC  accum(  I)  )  ; 
end : 
end    (fenSaccumj 
call    genera  te(  sub  type  )  : 
call    9e t typerapC cone t ) ; 
call    se  ts  t  y-peinp(  sub  t  ype  '  i 
if    9ubtyre=int     then 
do  ; 

if    3ccuni>5    then 

ca  1  I    error<  '  io ' )  ; 
call    peniaccumt 
if    pa992    then 

cal  1    eml  t(  9)  ; 
codes  l2e  =  codes l2e  +  2: 
end  : 
e  Ise 

do    forevor; 

If    giibtype  =  9tr     then 

do     I    =     1     to    ac  cum: 

call    gre  ne  r  a  t  "  *  n  c  c  ura(  i )  )  : 
end  ; 
e  Ise 

call    prenSaccum; 

codps  17. e  =  co'l<=>3  It:*?-^'  nrcu m+  1^/2; 
end  ; 

If    c  o  n  t      ^  hf»  a 

call    &<^a  niie  i-  •. 


inr 


e  lae 
do  ; 


if    8ubtype  =  <iec     then 

call    pe  n  t  wo  (  0  )  : 
e  Ise 

cod^slze    =    codes  Ize    +    2i 
call     generate(O); 
re  turn; 
end  : 


end  : 
end    gencon; 


processSs tore :     proc(a); 
dec  lare    a    byte ; 
i  f    c  hk  t  yp5     t  he  n 

call    genera te ( a+2) ; 
else 

ca  1  1    chktyp  1(a); 
end    processes  lore ; 

gfenSloc:     proc(a,b): 
dec  lare    a    byte , 

b    address ) 
if    a    =int     then 

call     11  tera  Kb)  : 
e  Ise 

call     lltload(b): 
end    ar^nS  loc  ; 

getSfleld:     proc  ; 

grenSre«d  :     proc  (  a  )  ; 
dec  lare    a    byte ; 
If    stypempl=int     thou 
do: 

call    ge ne  r  a  t  e ( a )  ; 
call    ge  ne  ra  t  e  (  s  I  <i  »  ; 
end  : 
e  lae 

if    stypempl=dec     th^n 
do; 

call    genera  te<  I*  1  )  ; 
call    ge  ne  r  a  t  e  (  s  d  d  >  ; 
end  ; 
e  l9« 
do: 

call    genera  te  (  a-^2>  ; 
call    genera  t«^ '  ^sd  )  ; 
end  ; 
end    genSread: 

call    gen>loc(9t ype mp 1 . s ym I o c rap  1 ) ; 
If    nielo     then 

ca  1  1    genSreadf  rd 1 )  ; 
e  lee 

ca  1  1    gen9read( re  i )  t 
e  nd    ge  1 9  f  1  e  1  d  ; 

puttfleld:     proe<a): 
dec  lare    a    byte ; 
If    f  i  I e  1  o     t he n 
a=a+3j 

If    3typempl=lnt     then 
do; 

If     t  yperap  I  =  subvar     t  h'  n 
call    generate'   lodt; 
call     ge  ne  ra  t e  f  n '  ; 
end ; 
else 

if    s type mp 1= dec     then 

call    genera te ( a+ 1 ) ; 
e  1;»« 

•-a  1  1    genera  te(  a  +  2)  : 
end    putSf  ie Id ; 
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proceasSproc :     prcc(a)     : 
dec  lare    a    by te : 
call    «*»  1 1  ype  rap (  a  )  ; 
If    pasfs2     tben 
do  t 

call    setsflocmpCsr  locmp  :=g:etsrloc)  ; 
call    «aetst  ype  mp  (  g^.  t  « ixb  I  >'pe  )  ; 
parrabfise  =  ba8e-*-ptr+  J  1  ; 
-nd  : 
end    proces'fltfpro'?  ! 

process*  Ident : proc ( a)     byte; 
dec  lare    a    byte ; 
if     fill  1«  lookup(  a)      then 

re  t  urn    ge  t  ype ; 
e  Ise 

if    pass 2     then 
do; 
call     error('nd'): 
re  turn    false; 
end  t 
e  Ise 

re  turn    Tunc ; 
end    processS I  den t ; 

processSarray : proc( a) j 
declare     (a.b)     byte; 

if    ( ( b : =proces3S ldent( a) )     '       subvar)     and    pa992    then 
do; 

If    bOO    then 

call    error( ' la' ^ ; 
end  ; 
e  Ige 
do; 

call    se  ts  typempf  sre  t=!nh  I  >-pe  )  ; 
ca  I  1    se  tS'5Ttiloc  mp(  ^yin  lu'  inp  :=getaddr)  ; 
call    g  e  t  t  ype  mp  f  a  ub  va  r )  ; 
end ; 
end    process^array ; 

process* Ide a tSdc 1: procCa.b.c); 
dc  1  ( a , b , c )     byte ; 
pv-num=  pvTium+  1  ; 

If    not    norira  IS  look.up(  a  )     th-^n 
do  } 

ca 1 1    se type( b) ; 
call    se taddr( conn t pr t ) ; 
call    se  tsub  typeC  c  )  : 
end  ; 
e  Ise 

if    pass  I     then 

do  i 

If    ope  type=parin    then 
do; 

call    se  type( b)  ; 
call    se t sub  type ( c  '  : 
p  tes  t  =  ptes  t- 1 : 
end  : 
e  Ise 
ca  1  1    error(  '  dd  '  )  ; 
(» nd  ! 
end    procef=-?S  ]  den  tSdc  1  ; 

proc^sav.     ppoc  ; 

call    ipfenS  lnt*v(  pcount  >  ; 
call    aren?  i  n1*v(  (  pvnuin+3)  *2>  : 
call     1  i t " rn 1 ( « ym lof mp >  ; 
call     ge  ne  ;•  a  t  e  <  3  a  V )  ; 
call    srenern  te(  b  1  1 )  ; 
If    pro(:«  t  ype=  f  unr     t  In- n 
d'.  : 

If    stypenip<>      int     tli'-u 


mo 


do  i 

call     1  i  t  load(  syinlocmp+4)  : 
call     literal     I3  ym 1 o  c  mp )  ; 
if    s  t  yp*mp=de<;     then 

call     generat»'ild>; 
*•  !se 

rail     genera  t  o  '  a  Is  >  : 
end  ; 
»nd  ; 
end    procSfsav; 

checkSparm:     proc(a): 
<leclnr«»     a    byte, 

i<    add  rf*ss  ; 
i  f    poi«?'2     then 
do  : 

b=  base ; 

hase=  pa  rmbase ; 

ir    a       "^     jyets  lib  typo     tlir^a 

call    e  rro  r  '.  '  pin  '  )  : 
pfl  rrrbnse  =  base  +  ptr+-8: 
La^o  =  h ; 
end  ; 

call     gf^  »<»  rate'    iml); 
call     |^'>n«rate(a); 
end    check^i>arra; 

procSpro :     pror ; 

call     tge  ne  r  a  t  e  (   I  m2  '>  ; 

call    gea$  t  wo(  sr  locrapM 

call    geuera  t e  (  pro  )  ; 
end    procSpro; 

processJprocS'Jcl:     proc(a.b.<^); 
declare*     (a,b,c)     byte; 
call     proresigiS  Ident  Jdc  1  (  n  .  b  ,  c  ^  ; 
pvnutn.  pcoun  t  =  0  ; 

call    -s  e  t  s  >in  1  o  r  mp  (  s  ym  locrip:=tretaddr)  ; 
i  f    pa^s  I     then 

pr  tc  t  =  pr  tc  t  +  4: 
If    (  proc*  type  :  =  b)     =     func     then. 
do  ; 

call     llteraHs yw  1  o c Tnp  +  4 )  : 
call    genera  te  (  xch)  ; 
call     g-enera  t  e  (  s  1  d  )  ; 
end  ; 
call    branchSc laase( brs )  : 
If    pass  1     then 
do; 

call    90  laddrp tr( 8)  : 
addrptr=codes Ize ; 
Bbtb  l  =  sbtbl+3; 
s  a  ve  pa  r  m=  s  b  t  b  1  -  1  ; 
end  ; 
call     lncr«b Ikf le ve 1 : 
end    proces»#proo Sdr  1  ; 

processSvar  *•     proc(a); 

declare     (a,b)     byte: 

If    (  b  :  =proceaf«S  Iden  t  (  a  )  )     -     «?lmvar     then 
do; 
call    a*^  t'^yralocspf  symlocpp -■  =fl:e  taddr  > 
c  a  1  1     «  o  t  t  ype  «  p ( a  1 mva  r '  ; 
call     f«e  t  3  f  ype^pf  g*^  t  3  nb  t  yT***  ^  '• 
end  ; 
e  Ise 

1 r    b=  Tunc     then 

c  ;i  !  1     proc  esf  Jpr  oc  f  f  u:i<?  '  : 
e  l<»e 

if    b'  >     0    then 

call  error ( ' I p ' ) : 
end  pr  oce<'8-'5  va  r  : 
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processes  1 ravarSdc 1  -     procCa.b); 
declare     (a.b)     bytej 

call    processSldentSdcHa.s  iravar  ,  s  type  nip)  ; 
If    g  typ«>nip<  >  Int     then 
do: 

call     1  I tera 1( ge taddr)  : 
if    stypemp=dec     then 
call    grenera  te  I  b^  : 
e  Ise 

c  a  1  1    ere  ne  r  a  t  e  (  b  +  1 )  ; 
end  ; 
end    processes imvarSdc 1 ; 

proceasS labe 1 : proc ; 
1  f    pass  1     then 
do  J 

If    ful  l*look.Sup(  mp)     thf'n 

call  error(  ' dd  '  ) ; 
e  Ise 
do  I 

call  enter  s 

cal  1    se  taddr( cod^?  ize>  ; 
call    set  ype (  lab)  : 
call    se  tSb  IkSlev,- 1*  blkSleve  1)  ; 
e  nd  ; 
end  : 
end    process*  labe  1  ; 

reso lve91abe  1  :proc  ; 

declare    (  chkSb  Ik.  t  Index)     byte: 
if    pass 2     then 
do: 

If    ((not     f  ul  IS  lookup(  sip)  )     or    (g^etype    <>     lab))     then 

call    error('ul'>; 
call    se taddrp tr( 6) ; 
chk*b lk=byteptr; 
t 1 nde x= pre v« 1 ndex ; 
if    b  IkSleve  1<  >clik»blk    then 
do: 

do    while    prev«l)  IkSIeve  l(  t  Index)     >     chkfblk: 

t  index=  t  index- 1 : 
end ; 

call    genera te( deb) : 

call  genera tef pre v$ index+ 1- t Inde x) ; 
end ; 
e  Ise 

call  ge  nS  t  wo  (  no  p )  : 
end : 
e  lae 

c  a  1  1  ge  n*  t  wo  (  no  p )  : 
call  genera  te  (  brg  )  : 
call  genSt WD ( ge taddr ) ; 
end  reso  1  veS  labe  1  I 


proceasSarraySdc 1 :  proc(a): 

dec  1  are  a  by t e i 

call     processSldent9dcl(n.<'nb-v^r,s  typenp)  ; 

arrSloc(  arrSnum)  -  g(^  taddr: 

arr*nura=  arrSnam-t-  1  ; 
end    proc pssf arrayfdc 1 ; 

closeSflle:     proc^a); 
dec  lare    a    byte ; 

If    process*  iden  t  f  a  >      then;      ■■':    not     implemented    */ 
else    call     error*  'uf'>; 


tnA   c  lose«f  I  le 


ass  ign*s  tint  :  pr^^c: 
call  chkt  >-p6 ; 
If     (  I  pconn  t  ■•  =  1  pcoun  t-  1 )  <  -■  0     th^n    /"♦=     te"  '  -     ir.i'  1  t  Ip  le    ass  ig-n    s  f  mts    */ 

call     procerssSstorefi^ii^; 
e  1 9*» 
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call    proce88*# tore( s  Id) : 
en(t   ass  ilrn's  tint; 


/*      execution   of    syntheslsie    h^-grlns    here 


%/ 


If    I  l9  tprod    then 

call    print*t>rocl{ 
cal 1    copyj 
do    case    production;     /^    call     to    systheslze    handles    one    prod    ^/ 


/♦case    0    no  t    u«»ed    */ 


/« 


1  <  progfrain>     '■'■-    <blr,ck^     _l_ 


•x/ 


If    pass 

do; 

pa 

If 

d 


e 
ca 
ca 
ca 

end  ; 
e  Ise 

do; 
ca 
ca 
ca 
ca 
ca 
ca 

end  1 


I  then 

ss 1    =     fa  Ise ; 

errorcount    >     0    then 
o  ; 

call    printSerror; 

call    roon3 : 
ndi 

II  rewindSsourceSf  I  le ; 
11  ffent  wo  (  codes  ize+- 1 )  ; 
11    ^en  t'wo(  c  o  un  t  pr  t )  ; 


11  prlntSerror: 

11  genera te f xi t )  ; 

11  genera  te  (  TfhJ  ! 

11  wr 1 te»lnt«f \ le : 

1  1  c  lo8e«int»f 1 i« : 

I  1  Dio  n3  ; 


/*    plus    one     to     include     the    xit    */ 


/« 


<block>     '.'-    <block.    hend>     <  b  look    end> 


•*./ 


/*  3         <block    head>     ::=     <block   head>     <  dec  lara  t  ion>     ; 

/*  4  I     <  beg  i  n> 


*/ 


/3t 


/« 


/% 

7 

/% 

a 

/% 

<i 

/* 

10 

/* 

11 

/* 

11 

/* 

12 

/•* 

13 

/* 

14 

/•* 

13 

3         <begln>     :  :=    begin 
call     Incrfb  lk«  leve  1  ; 

6  <  block   end>     :  ■' =    <  block    body>     :       end 
call    decrtb IkS le ve 1 : 

7  <block   body>     ::=     '  <^  ta  tement  > 

I     <block    body>      j        <statement> 


<  dec  la  pa  t  ion"' 


:=     <^file    deolaration> 
'simple    dec  lara  t  lon> 

'simple    declaration> 

■  Initial     opfion> 

''arrny    der>larat!on> 

'^  array   df^clarafioii^     <  initial    op*ion> 

■  ■■viibprogram    'iecl«rntion> 
<  e  X  t  r  r  na  1    d *»  c  !  a  r  a  t  i  o  n> 


*/ 
«/ 

*/ 
*/ 


/% 

16 

/x 

16 

/* 

17 

/*  ; 

18 

/* 

19 

/* 

20 

/% 

21 

/x 

21 

<9lmple    declBratlon>     ::=    <declaratlon    head>  */ 

<  ident  I  f  ier->  */ 

call    process  Ss  imvarSdc  1  (  sp  .  ii  1  d  )  ; 
<lnitial    option>      ::=     <  i  n  i  t  i  a  J     bead>     <confftant>     )  */" 

<  ini t la  1     h»ad>     :  : =     ini t  ia 1     (  */ 

I     <  In  i  t  la  I    head>     <constant>     ,  *• 

<declaratlon    head:      '•  :  =    <  dec  lara  t  •  on    type>  %/ 

\ 

I     <declantionhead>     <identifler>  */ 

*/ 
call     processes ImvarSdc 1 C  mpp I , a  id '  : 

/«  22         <dGclaratlon    type~'     ::=    string'  */ 

do; 

call    36  ts  typesp*.  3  tr  )  ; 
call    gen*  In  t$v(  r?  rr*s  Ize  )  ; 
end ; 
/x  23  I    string   ^^ize    opt  ion>  */ 

do; 

call    ge  ts  t  ypemp*  .«  tr  >  ; 
end ; 
/X  24  I      integrer  X/ 

call    getst  "STJe  s  p  (  i  n  t  )  ; 
/X  23  i     decimal  %/ 

do: 

call    36 t 9 t ypesp(  dec )  ; 
call    /^enS  in  t$v(  decSs  ize)  ; 
end  ; 
/X  26  I     decimal    <slze    option>  */ 

call    se  ts  type  nip  (  dec  )  ; 
/X  27  <  3  Ize    opt  ion>      :  :  =     <     <  var  lab  le>     )  X/ 

If    3 t ypemp 1 = I n t     then 

call     litload(s yin  1  o c rap  1 )  ; 
e  Ise 

call     error('3l'); 
/•*  28  I     (     <  lnteg:er>     )  */ 

do: 

call    mo  v-«  (  ca  IcSvarc  (  mpp  1)  ,  .accum,7)  ; 
ca  1  1    grencon(  int )  ; 
end  ; 
/X  29  <statement>     ::=     <balanced    3tafeiaent>  X/ 

/X  30  I     <nnba  lanced    statewent>  X/ 

/X  31  ^balanced    3taternent>     ::=    <simple    stateraent>  X/ 

/X  32  I     <  if    clau8e>     < true    part>     else  */ 

/"*.  32  <balanced    statement>  */ 

call    setfenterftype  mp 1 )  : 
/*  33  I     < label    definition)  X/ 

/*  33  < balanced    statement)  X/ 

s 
/"X  34         <  unbalanced    s  t  a  t<?r!»»n  t  >     ::=    <if    clause)     <  statement)  X/ 

call     jaetSenterf  t  yp»^  :np>  : 
/«  35  I     Mf    clause)     <  true    part'  «/ 

/*  33  elso    <  unba  lanced    stntei-^nt)  '*■/ 

cal 1     set5enter<  typ^npl) : 
/'«  3fi  I     ':iobel    definition)  */ 

/*  36  <  unbalanced    statement"'  X/ 

I 
/*  37  <truf    part'      :  :  =     '  ha  1  ■in'"»d    s  t :»  t .-- -len  t )  X/ 

do; 

call     branc  hSc  1  a  i^c  '  V-r  ?  ''  ; 
call     set  Se  n  f  "  r  '  t  -^-ne  <  -^  f'-  1 )  »  : 
e  nd  ; 
/"*■  38  -   labe  1     de  f  in  i  t  ion        :  :  =     -:  ident  i  r  i»-r)      :  ^/ 

on  1  I     p r " c  e  =? .*! S  1  .-i  J ■  ■  ^  1  : 
/X  39  I     <  i  n  I  >' «'-  r  *y 

call     process?  lal)c  I  ; 
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/x 

40 

i 

/« 

4t 

/* 

42 

/* 

43 

/* 

44 

/% 

43 

/x. 

4*j 

/% 

47 

/■* 

48 

/% 

49 

c 

/% 

30 

B  \ mp le    stntPfoont" 


/"*. 

/* 

/* 
/* 

/% 

/* 
/% 

/% 

/* 

/•*. 
/* 
/* 
/« 

/* 
/* 


call    generateCpop) 


do: 


<  b  lock> 

<  ass  iiyr.tnan t    ^tat<»ment> 
<for    state  me  n  t  > 

<  wh lie    state  roe  n  t  > 
<read    state  me  n  t  > 

<  wr  ite    ^tate  i/ie  n  t  > 
<case    strife  mo  nt> 
<go     to    «tatement> 
^close    state  me  a  t  > 
(procedure    call> 

<  identifier> 


X/ 
%/ 
*/ 

•*/ 
^/ 
X/ 


if    (  ( procest3?  \deiit  ( spi     <;     pro)     and    pas32)     th^:* 

call    error ( ' nf ' ) ; 
call    proces^Sproc ( pro  >  ; 
call    proc  $pro : 
call    grenera  te(  pop)  ; 
end : 
51  <  ass  icrnment    statement'     ::=    <left    part>     <expre?«ini| 

f'all     ns9  1  gn*s  t  rat  ; 
52  <  left    par  t  > 

'' ass  Ig-nme  a  t    statement)  */ 

call    asa  li^nSs  tmt  : 

53  <left    part>       <varlable->     :  = 
do; 

If     typemp<  >  sub  var     then 

call    ge  nS 1 o  c ( s  t  ype  mp , s  ym 1 o  c  mp )  ; 
Ipcoun  t  =  I pcoun  t  + 1 : 
end  ; 

54  ^  express  ioa>     :  '■  =       aritbumetic    express  ion> 


53 


if  expression'  < express ion> 

=     <  t'='rra> 


56  ^  nr  i  t  hm©  t  Ic    express  iou> 

t 
57 
57 

ca  1  1    chktyplf  ad  1 )  ; 
58 
50 

call    chktypl(sbl); 
5^ 
59 

If    chktypo     then 

call    ge n© ratetf'at)  ; 
69 
If    chktyp3    then 

call    genera  le  (  near)  : 
61 

If    cliktyp3    then     ;        -'*    uo    action    required    *■/ 
62         '^term>     ::=    '^priin:iry> 


I     <arithm#^tlc    expression 
'-  '-  i-m> 

1     '  Q  r  i  t  hirie  tic    e  xpr  e  s  <a  i  o  j) 

'    tertn- 

I     'arithmetic    express-  i  f- 1^ 

f  '      t  •?  r  ?n^ 


-    ■'  t  a  r  m> 


I     -i    <  term'^ 


63  I     <  term^      ^       prinary 
call    o  hk.  t  yp  1  (  mp  i  )  ; 

64  I      -  t--»rin>      '     '  p?-itnary> 
c  i»  1  1    c  hk  t  yp  H  d  V  1  >  ; 

65  ''  pr  1  inary>     '•  '■-     -  pr  i  ipa:-  y    e  le  nit>  n  t " 

66  I     \p";rriiry>     x-^    '■prlr:nry    •-■•lement) 
tall    ohk  f  yp I f  i  xp  »  : 

67  <  pr  I  ma  r  y    e  I  •.»  mc>  n  t        ■  '  -     -^  va  r  i  a  h  !  -^  "• 
If     t  ypesp=  s  i  invn  r     1  hf  a 

-all      I  i  t  loa.H  ■= -,v.y  lo.-^p)  : 


X/ 


%/ 


x/ 


x/ 
x/ 


x/ 

x/ 

x/ 
x/ 
x/ 

x/ 
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e  ls« 

If     typesp<  ^    snhvar     then 
en  1 1    procSpro : 
/T  68  1     <con9tant^  X/ 

t 
/%  69  '     < procedure    call>  */ 

/te  70  I     (     <  as>s  li?nment    stateraent>     )  */ 

call    96  ts  typerap(  3  typemp:  =s  t  ypetop  1  )  ; 
/t  71  I     <     <  express:  ioii>     )  «/ 

call    se  ts  typempf  8  f  ^-p'^'^P  1  ^  ; 

call    sett  ype  tnp  (  t  w^  "ip  1  '  ' 
end ; 
/*  72         ''cons  tant>     ;:=<  integer  >  x/ 

call    jirencon(lnt)t 
/»:  73  I     <  'leo  ima  1  '  */ 

cal  1    gencon(d<«c)  ; 
/*  74  I     <  s  tr  injc)  */ 

call    |Bfencon(9fr); 
/v.  73  <varlable>     ::=    <identifier>  */ 

call    process$var(  sp)  ; 
/«  76  I     <^  siibscr  ipt*»d    variable^  */ 

/X  77  <^flle    declaration-     ::=     <file    head>     -file    nanie>  ■*/ 

/*  78  '     <flle    head>      :  :  =     file  *-' 

/«  79  I     '  r  i  le    head>     <file     name>      .  XX 

/X  80  <flle    name^     ::=     :strlng:>     <  lenc-t  h    op  t  lon>  */ 

/*  81  I     ^strlng>  */ 

/«  82  I     <identiner>     <  length    optlon>  r./ 

call    process*  ldent$dcl(mp,fllel,9)  ; 
/*  83  I         identifier >  */ 

ca  1  1    process*  IdentSdcHsp,  fi  lel.O)  ; 
/*  84         <  lenarth    oplion>     ::=     '     <  Identifier)     -5  X/ 

if    process*  Ide  n  t  (  tnp)  =  1  nt     then; 
/«  83  I     •     <  integer?     3  xx 

call    gencon(  in  t )  ; 
/X  86         < array   declaration>     ::=    < array    llst>     < bonnd    pair     ll9t>  */ 

do  ( 

call    g©n«lnt«v(  arrSd  lin)  ; 

call    genS in tSv( arrSnum) ; 

call    genf  In  ti>v(  s  typ^'mp)  ; 

call    genera  te  (  ro  v/)  ; 

do    while     (  arrSnnm    :=     arrf num- I ) < > 235 ; 

call     llteral(arrSloc( arr*nuro>  ^  : 
end; 
end : 
/X  87         < array    list>     ::=    <array   head>     <  identifier)  */ 

call    prOcessSarraySdc 1 ( sp) ; 
/*  88         <array    head>     ::=     ^declaration    type>     array  */ 

arr*nura=0; 
/*  89  I     <array    head>        identifier)     ,  %/ 

call    proces8tarray«dc 1  (  mpp 1 ) ; 
/*  90  <  bo  and    pair     list>     :  :  =     <  bound    pair    head>     <  bonnd    pait>     0  */ 

arr*d  lni=arr*d  lra+ i  : 
/"*  91  <boand    pair    h*ad>     ::=     '  */ 

arrSd  ira=0 ; 
/*'  92  I     < bound    pair    head>     < bound    ra ir>     ,  */ 

arr$d lm=arrfd 1 m+ 1 ; 
z'*  93         <  bound    pa  lr>     :  :  =    <  express  ion>     :     <  express  ion>  */ 

if     f  9  typemp<  ;  i  nt  )     or     '  s  t  ypesp<  >  i  n  t  )      I  lien 
call    error('bp'>; 
/*  94         <  subscripted    varirtble>     :  :=    <  subscript    head>  *-- 

/*  94  <"  express  ion>     0  */ 

do: 

if    stypempl'^  inf     then 
call    erroi-i   '■^li'); 
call     I  i  t  I  o  n  d  f  s  -jtii  I  y  c  tr.p )  ; 
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/* 


/« 

/* 

/*  . 

/% 

/■*. 
/* 

/"*. 

/* 
/x 

/* 


&nd : 

95  'subscript    head>     ::=    <  ident  i  f  l«'r>     ' 
ca  !  1     proe  essSor  ray'  mi>)  : 

96  t     'subscript    heart>     <  express  lon^ 
If    3typenipl    <>     int     then 

call    err<>r-<  ■  sh'  )  ; 
'ijo     to    state  me  nf'     :=    <  go     to^        l.i'^ntifier> 
call     reso  1  ve$  lab<r  1  : 

I     <  go     t  o  >     -  i  II  t  e  ore  r  > 
call    reso  1  ve*  lob**  1  : 
<"  go     to>     :  :  =    gfo     t> 


97 

98 

99 

100 


I     go  to 
<  read    statement"      '•  '■  -    'read    head"'     <variable>     ) 


101 

do; 

call    gp  t«f  ie Id; 
If    filelo     then 
do: 

f  1  1  e  1  o  =  f  a  1  ?  e  : 
end  ! 

e  Ise 

call    ^enerate(ecr': 
end  ; 

102  <  rf^ad    head>     ::=    rend    ( 
call    j^enera  te(  rciO  ; 

103  I     read    < f i le    optIon>     < 

104  I        read    head>     <vai"lable>     , 
oall    getSfleld; 

103  <  wr  1  te    8  ta  tement  ->      :  :  =     <  wr  i  te    head  >     <  express  ion  ' 

call     pnt«fleld(wic); 
106  I     <write    head>     'tab    expresr- 


107 


<  wr  i  t  e    he  ad>     <pic    defini 


1 08  <  wr  its    head>     •  ■  -    v,-rite    ( 
call    genera  te  (  dinpi  : 

109  lwrite<flleoptioa>( 


110 
11  1 
112 


I     wr  i  teon    ( 

I     wr^i»eon    <flle    option>     ( 


I     '  ■•<rr  i  t  e    head>     <  e  Jtpr*»ss  lon>     , 

ca  I  1    put«f le Idf  wic  >  ; 
1  13  '        ^•JT  l  te    head>     '  tab    express  ion> 

I 
114  I     '"wTitehead>     <picdefinltlon> 

; 
113         <flle    optlon>     ::=        identlfler> 

if    processS  Iden  t  (  9u  '     =     f  i  le  1     then; 

116  I'ldentifier^     < rec    option> 
If    procesaSlden  t  <  rtip  •     =     filel     th'^n; 

else    call    error ''nf'); 

1 17  I     ^'  s  t  r  1  ng> 
I 

1  IB  1  <string>  <rec  option> 

119  <rec  optlon>  ::-  .  'M'-atifiAr^ 

If  ((  process*  Ident  f  >:r>  1  =  >»imvar)  and  (getsnbtype  = 
else  call  error  <"iii''»; 

120  I   .  '  integer:^ 
ca  1  1  geMcon(  Int): 

121  <plc    definition;      .'-       pic    head'     ^pic     llgt>     ) 

122  <plc    head>     ::=    r '  •'     •'=trinfl:"> 
; 

1 23  I     ]>  i .'     -     d  <•  n  t  i  f  i  e  r 

if    (  process?  1  '1  p  n  !  ^  -  r- 1     -     s  i  mvn  r    .i  .'id    jtr'"  t  snb  t  ype    = 
else    call    error'   '•i.-': 


x/ 

:</ 

f./ 

) 

x/ 

ion 

) 

T/ 

i  ( ■  r<  •" 

) 

•i:/ 

int))     then; 


*,- 

-if./ 

%/ 
*/ 
*/ 

i; 

^./ 


s  » f        t  he  n  ; 


If. 


/*  124         <pic     ll9t>     '•■=    <       express  lon>  */■ 

/X  125  I     <pic     list>     .     <  express  2on>  %/ 

/*  lii6         <  tab    express  ion>     '  •  =     tab    <  expr^^ssr  ion>  :«:/ 

/*  127         <lf    clause>     •'■-     if    'boolean    express  i.>n>     then  */" 

call    branchSc  lause  '  b«'-  '  ; 
/T  128         <if    express lon>      ::=     ^if    clange>     < express ton>     else  */ 

/*  129  <  boo  lean    express  ioa>      '•  :  =     <  boo  lean    term>  %/ 

/*            130                                                                         I     (boolean    express lon>  or  */ 

/■*.             130                                                                                  (boolean     ter!n>  */ 

rail    chJityp  1  (  bor  >  ! 

/*             131          <  boo  lean    term>  '•  :  =     c  boo  lean    prir.iary^  «/ 

/X  132  I     not    <  boo  lean    priniary>  */ 

If    chk«>T>3     then 

call    genera  te(  no  to  *  -. 
/%  133  I     < boo  lean     terra>     and  */ 

/*  133  < boo  lean    primary  */ 

call    chktyp  1(  ando  )  ; 
/*  134         <boolean    primary^     '■  '■-    <  logical    expression?  «/ 

? 
/*  135"  i     (     <  boo  lean    express  ion>     )  */ 

call    sets  typeinp(  a  t  ypetrp  1 )  \ 
x*  136         <  logical    express  ion""     :  :  =    <  express  iou>     <^relation>  */ 

/t.  136  <  express  ion>  */ 

If     (  s  typeinp=s  tr  •     and     (  s  typesp=s  t  r  )      then 
call    generate(  type  rap  l-'-2)  ; 
e  Ise 

call     chktyp  1  (  t  ypetnp  1  )  ! 
/■*.  137         <  relation)     :  :  =     =  f./ 

call    «e  t  t  ype8p(  eql  )  ; 
/«  138  1     <  */ 

call    sett  ype  s  p (  1 g  s )  : 
/*  139  I     >  «/ 

call    se t typesp( g tr ) ; 
/%  140  I     <comp>  %/ 

I 
/*  141         <comp>     : :=    <     >  */ 

call    »e  t  typenip(  ne  q)  : 
/*  142  I    <     =  */ 

call    set  t  ypeinp<  le  q)  ; 
/«  143  I     ^     =  «/ 

call    se  t  typemp(  ge  q)  ; 
/*  144         <whlle    statement'     ::=    <  whi  le    c  lause>     <  do    statement^  */ 

do  I 

call    genera te( brg ) : 
call     genS  t  wo  (  s>-rn  l'->cmp)  ; 
call    set  Se  n  t  e  r  (  ♦  ^T"^  '"P  ^  ! 
end  : 
/*  145         <vhllo    c  lau8e>     ::=    <while>    <  boo  lean    express  lon>  */ 

call    branchSc lauseC bsc ' : 
/»     ,       146         ^whl Ie>     : : =    whi le  %/ 

call    se  t9ytnlocmp(  codes  ize  )  ; 
/*  147         <  for    statement>     ::=    <  for    clause)     <step    express  ion>  «/ 

/*  147  <  until    clause>     <do    statement/  */ 

do: 

call     genern  t e  C  brs )  : 
call    ge  nS  t  wo  '  s  ym  I  or-Ripi  . 
call    set*entpr(t  j^De  '  i^  p-  1  )  )  : 
end  J 
/*  148         <  f  or    clanse>     ::=     for    '^  nss  Ignraen  f    statement)  T./ 

do; 

If    (  typesp<  >  s  i  mv-ar  J     or    (  s  t  v-pe«  p<.  >  in  t )      then 

callerroi-('ril'); 
call     gene  ra I e ( brs  J  ; 
call     comp  I  lerS  1  nl>e  I  : 
call    se  tsym  1  oc  mi>'  •-  o.losj  izp  )  ; 
call     llferalCs  yra  |  o  '"i  p  '  ; 
call      1  i  t  1  oa'l  (  s  J  '1  •-  II  r  :  ~  «>  ym  lo  c??  p  )  ; 
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end  ; 
/*  149  'step    pxpres'^  Ion"*        ■=    step    <  expretas  ion>  */ 

do: 

1  f    a  typesp'  -  in  t     t  h''  ti 
call    e  r  r  <>  r  <  '  '1  i  '  >  ; 
s  tepSf  lag-  tT-ne  ; 
coll    s  t  epSiOf^n  ; 
end  ) 
/"*  150  <iuitll    clause^     ::"     ^nntil     non-rerra>     <expression>  */ 

do; 

cail    grenerate(leq); 
call    branchJr  laiisp  "^  bsc  )  ; 
end  ; 
/*  13  1  until    non-term>      • • =     un t i 1  */ 

if    not    steps  flag:    tlien 
do; 

ca  1  1    gen*  In  t  Jv(  1  >  : 
call    61  tepS|i?en: 
end  ; 
e  Ise 
a tepSf lag=  fa  lac ; 
/*  152  <^  do    stafenient>     :'=     do       simple    »:tatenient>  */" 

J 
/*  153         <close    state  me  nf     ::=    close    <i<l»atifier>  */ 

call    clo<»e9flle(g:p'; 

*  154  I'sclo'ae    «>  t  a  t  p  m»^n  t  >     ,     <identifier>  */ 

call    c  loseSf  I  le  (  sp)  ; 

*  153         <  snbprogrram   declaration)     ::=    '  s  uhproi^rara    headinj?)  ^/ 
«             155                                                                                            <^  simple    statement/  */ 

do: 

call     1  1  ter*a  1  (  gymlocmp)  : 

call    genera te( uns ) ; 

call    genera  te(  r  t  n)  ; 

call    decrSb IkS leve 1 ; 

call     se  t  Sen  ter  (  t  ypemp  >  ; 

call     llteraHs  ymloc  nip  ■^2)  ; 

ca  1  1    gen«lnt«v(  (?)  ; 

call    ge  ne  ra  t  e ( s  i  d )  : 

pv-nura,  pcoun  t  =  0  t 

f  r.lag=  fa  Ise  t 
end  : 
^*  136  <  3«bprograra    heading"-      ::=     <run<'tion    head  ing>  ^X 

f  r lag=  true ; 
'■*  137  <  proc  e -lure     heading>  *'•' 

-'*  158         <  function    headinur       '■  '•  ~    'paramlr-=»g     f  unc  t  ion>  */ 

I 
-'*  159  '^  function    ^    pa  r  a  ins  >  */ 

do: 

call    ge  ne  ra  t  e ( s  v2 )  ; 
if    ptest<>0    and    pass  I     then 
call    error(  " pd  '  '  : 
end  : 
/*  160         <  procedure    heading'     ;:=    <paranl^i's    proc>  ^Z 

/*  16  1     '  I     <proc    r-.    params>  */ 

do  J 

c»  M    genera  te  C  s»  v2)  ; 

If    p  tps  t  <  >  0    and    p.TSf?  1     t  ho  n    call     •-  r  rorf  '  pd  '  )  ; 
end  ; 
/*  162  <paramless     riiuction>     ::=     <decli- ration    t  ype  >     fiincfi'   a  T-/ 

^*  162  <   iden t  1  f  ier>  ;  */ 

cal  1    proce«>s$pro^.?,lr  l^sp-l  .  func  .■=:t  y-p»^nip)  : 
/*  163  ■'  f  unc  t  ion    <1    pa  rams  :         •  =     '  f  un<-  t  i  o  n    head>     <  i  den  t  i  f  i «  '  '     )      :     ■*■•■'  «/ 

do; 

call     process  ?id<=>  II  iS.l-Jf  nipp  I  ,  parr- .  0)  ; 
parme  .  p  f  es  t  =  (  pcoun  t  •  =  p<-  o:in  t  +  1  1  • 
call     procSsa  v ; 
e  nd  : 
-^*  16-*  I     •:  ruucti"!!    ^    parnms""  «/ 

/«  1^4  <  -l.w    I. II-  I  »  i.iii>      :  «/ 

/^  163  f  tine  t  ion    lif  n  I  "      :  ■  ~        'Ic  -  I  ;i  :-:i  t  ;  •   u     t  >t>o  "      fiinc  t  io  t(  «/ 
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/«  163  ^  i'lpnt  if  ler'     (  «/ 

ca  1  1    process4procS'l<'  1  (  sp-  J  .  f  unc  .  >  fypemp'  ; 
/%  166  I     -^  function    hea>1>      -identifier>      .  */ 

do  J 

cal  1    proceBS*ld«*nt$'ic  H  rupp  1  .  pnr>-i.  ^^ »  : 
pc  o  un  t  =  pc  o  un  t  +  I  : 
end  x 
/■*  167         ''paramless    proc>        :=     oroce-liir^        l<lentifier>  :  */ 

do; 

call    processSprocSdo  1  <  n;pp  1  .  pro  ,  0  ■  : 
call    procSsav; 
end  ; 
/%  168         <  proc    S    paran!S>     ''-       procedure    hea<l>     <  iden  t  1  f  ier":      •        ;  «/ 

do! 

call    processSl'lentSdc  Hmppl.parw.")  ; 
par me , p  t es  t = ( pooun  t  : " pco  un  t+ 1 )  ; 
call    procSsav; 
end  ; 
/*  16<)  !     ■'proc    0    parnnis>     <  dec  lara  t  ion?      :  */ 

; 
/*  17^         <procednre    head>     '■     ~    proce<lur^        ldeutifier>     (  */ 

ca  1  1    processfiproc$'i<    I '  mpp  1  ,  pro  .  O  •  : 
/%  17  1  I     <  procedure     head>     <  ide  n  t  i  f  i  v»  r        .  ^-/ 

do: 

pcoun  t  =  pcoun t+ 1 ; 

call    processSid'^n  t*d>'  1  <  tnpp  1  ,  parm.  0  '  ; 
end  ; 
/*  172  <  procedure    call>      ■:=    <call    headi  \\.q'>     <.  express  ion>     >  */ 

do; 

pc  o  un  t  =  pc  o  u  n  t  +  1  ; 
call    chec  kpartn(  -s  f  >-pemp  1 )  ; 
call    procSpro ; 

if     f pcoun t <> pcoun t     and     pass 2     'hen 
call    erro  r(  '  p'"     '  ; 
end  ; 
/X  173         <call    headlna:>     ::=    Odentifier?     (  */ 

do; 
if     (  (  b  :  =prooes3S  iden  t  (  mp)  >  <  >  f  nnc  )     and     (  1><  >  pro  1      ti?^u 

ca  I  1    error'  ' up '  )  ; 
call    proce9sfpro<- (  b)  ; 
f  pcount  =  g:e  t  parm: 
pcount  =  0 1 
end  I 
/*  174  t     <  ca  1  1    heading"*     <  express  ion>      .  */ 

do: 

pconnt = pcoun t+ 1 ; 
call    chec  k.parni(  s  typ^emp  1 )  ; 
end  ! 

^'external    dec  lara  t  ioii>     ::=    <declaration    type>     ext'^^na  1  *- / 

function    <external     list  */ 

I     external    procedure  *'' 

<exlernallist>  */ 

<external     list>     ::=     <identifier>  */ 

I     -external     llst>     ,     <  identifier-  */ 

<  case    statement^      ■:=       case    heading?     -case    block"  */ 

do: 

do     '  =  1     to    n; 

Cfl  1  1     proce8i«*'-a^«»*':^be  I'c  lable-1  '  : 
end  ; 

call    setSenter(t  ype  m\^  •  : 
end  : 
/T  10*^  <cn8e    headijig>      :'-     f^-rao    <pxpre-=j^j.->n>     of  */ 

do: 

If    s  t  y-pe  mp  1  <  >  I  u  t      t  h    n 

call     error<'ni'i: 
ca  1  !     a:en«lnt*v(  ■>  >  : 
call     ge  ne  ra  t  e ( mp  i 1  : 
coll     ^»e  f  Scoinp  1  1  .>  rS  i ..'  .>  !  • 
call     sf  t  t  ype  mp(  ■•  1  ;t  I.  I  r    '  . 
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/x 

173 

/■■* 

173 

/% 

176 

/* 

176 

/* 

177 

/% 

170 

/* 

179 

ca  1  I  i^enera  te{  lri2)  ; 

call  ge  nS  t  wr>(  gre  tad'lr-4  '  : 

call  i?<-nernte'sl)r): 

call  crenera  t  e(  bra  )  ; 

c  1  a  1)  .1  o  =  c  1  a  b  1  e  +  1  t 

call  en  I  erScontp  I  1  er  5  !  ijhe  1  (  0)  ; 

11=0: 

/SK  101  <case    block>     ::=    bearin    <casie    block    body>    end  */ 

/5K  1312         ''.case    block    br>dy^     '■  '  -     'stateHicut>  */ 

call    ca^eSsJtate; 
/■*  18:^  I     ^case    b  1  o  r- k    body>     ;     <stat»raeut>  */ 

call    caseSsitate; 
end;       /*-Ko  f    cas^^    sta  tement-sx 

end    synthea Ize  j 

/*  v-rror    recovery    I'onttii^?  "f/ 

/*****.?  *2i£>!::«^«;»:r):***;(:y;a;-.».- ;!-:»;•;::<: ■'•:.'•■.i-■i:;>::f:*^**^*::f^:«iKrr.>i;a;:  ,■ 

no  conflict:     ppoc     (estate'     byt-^: 

decla;-e    cstnte    statesize,     '    i.l.k.'      Indexsize; 
J=     Indoxl I o3  ta  te )  ; 
k=     J     -^     lndex2(  cs  ta  te  )     -      1. 
do     I     =     J     to    k; 

If    readH  i)     =     token     chen    return     true; 
end  ; 
re  turn    fa  Ise ; 
end    noconf 1  ic  t  i 

recover:     proo     stateslze: 

declare     tsp    byte,     rstate    st;if*slze; 
do     forever:        tsp    =    sp; 
do    while     tep    <>     23o: 
If    no  conflict(rstnt^:=«tn  testae  kt   t.sp))      then 
do:        /*    state    will     i-ead     token    -</ 
If    sp    <>      tsp     then    3p    =      tsp    -     I: 
re  tarn    rs  ta  te : 
end  ; 
tsp    =     tsp    -     1  I 
end : 
call    scanner ; 
end  ; 
e  nd    r  e  c  o  vo  r  : 

/St  ^ri:y::j:^^Tt^:r.T*^TT-i('j:r.XT..'-  f :  s  >;»;  x  >c  :k  :fc  *:«;«  rs  *  :r  ;*:*  >c  :f  »;  :jt;  :C  3: :«::«  a:  **!SX:p::c-^  ••■;'-'??;  «/ 

/«  *  a;  :»:y::r  ;«*:»::«  a:  lair    parser    routines  **ac^t::--     -  4:-x  -hl/ 

do;       /*block    for    declaration''*/ 
declare     (  l,j,k)      lnd«^xsize,      index    byte; 

Initialise:     procedure: 
call     title; 

call     1  u  i  t  i  a  1  Izei^sc  ann-»  r  ; 

call      1  n  i  t  in  1  l7^e»'5-i-:iitr  I  ; 

c>»  I  1      initial  l-zeS-^"  yn  I  }!••  *  i  7.'^  ; 
end     initialize; 

lyetlnl:     pr<>ce<lure     Indf^xs  i?:?  : 

re  t  nr  n     \  nde  x  1  (  s  I  r\  f  <■  '  ; 
e  nd    gp  t  i  n  I  : 

ffe  t  i  ii2  :     pror  =>,lure      i  ii-ie  x-s  i  / -^   : 

i-p  t  ur  •!     i  ud  e  x2(  'i  t  n  t  e  '  : 
end    a,"  t  i  n2  ; 


Incap^     procedure; 

if    (sp    :=    sp    +     2>     =     l-^nar'liCstatestack)     then 
.^a  !  1    error<  '  so  '  '  : 
end     incsp: 

lookahead;     procedure; 
i  f     uo  look     t  lie  n 
do: 

on  1  1    sc  annt;  r  ; 
no  I  ook    =     f  n  1  *■'*  ; 
If     1  i  s  t  t  o  ke  u    t  it.'  n 
oall     pr  i  u  !  S  to  k'Mi : 
e  lid  ; 
end     lookah*>a<l: 

setSvarrSi;     procedure' (  ;  .'  ; 
dec  I  are     I    byte; 

OK    get    varc  .     and     in  •-'^  meat    varind«-^c    «/ 
varc ( var  index) =  i ; 
i  f(  var  index  :  =var  i  nl'>  "+ 1  )     >      len^^  t  h<  varc  )      then 

calierror',  'vo'i; 
<»  nd    se  t  SvnrcS  i  ; 

/*  Initialize     for     input    -  output  operation^!       ^/ 

call  move  <   .  r  f  cb  ,  .  wf  cb  ,  *?  >  ;  pu  t  file  name     In    wr  ite     fob    */ 

call  9e  t  iipS  I  n  t  S  f  I  leS ;              ''*  create  an    output     file     for    code    aron*>"TiteJ    */ 

call  initial! ze : 

do     fore  ve r  ; 
do    while    pass  1    or    pass2; 

/"*     initialize     vTirLableis    '^  ^ 
comp  i  1  i  ng .  no  look=  t  rue  :        .■?  !  a  t  e  =  g  t  ar  ts  : 
9p=23o ; 
var index. var    =    0; 

do    while    compiling: 

if    s»  ta  te<  =rnaxrno     then    /*    read    state    =</ 
do; 

call     Incap:       =•  ^a  t^s  tack(  sp)  =s  ta  te  ; 
1  =  i?e  t  i  n  1  :        call      loo  ka  he  a  d  ; 
.1=  1  +  g-e  t  in2-  1  ; 

do     i=  1     to     J  : 

if    r^ndl*  1'=  token    then    ^'K    save     token    */ 
d  o ;        va  r '  5  p  >  =  va  r  index; 

/x    f-opy    accumulator     to    proper    positioi!    ''-^ 
do     inde^=    0     to    ace  am; 

•"a  I  1    se  tSv'arcSi(  accumf  index)  )  : 
end  : 

hasii<  .*5>  1  =  ha  she  ode  : 

''*    s  a  vo     relative     table     location    *-'' 
g,  ta  I  >=  r^ad2(  I )  ; 
no  look-  I  rue  : 

'  =  .1  : 

»  nd  ;        '•  Is" 
If     1  =  .I     tlipp 
do  ; 

call    "  '--r.  r  <"  '  np  '  )  : 
I  f  (  '^  t  n  t  li     ".  -     I'o  c  o  ve  r  )  =  i1     t  ho  n    o  o  mp  i  1  i  ng'^  '"  n  I  -  '   ; 
f  nd  ; 
end  ; 
e  nd  ;        f>  1  fa  <» 
If    state>  mn  xpn"     t  hr  n  -    a  pp  l  y    pfy  i  no  f  ;  on    state    *'' 

do  t 

tt!p=«p-s?n  f  i  ri2  ;         nrr- I  =  n!p+  1  : 
prod  uc  t  1  o  n    -     -■  '  >  '  —  mn  x  pno  : 
'•nil     ■a  yn  t  iip  s  I  -  ■ 
•s  p=  mp  ;         i  =  s'*  I  i  !•  i  : 
va  r  i  nd  e  x=  •--.->  !• '      pi  ; 


1"! 


J  =  gtatestaclv(?n>  : 

do    while    <  i^:  =app  ly  K  1 )  >     <>    0    and    j    <  >    k; 
i=  i+I  ; 
end  ; 
IfCstate:-     app'  y~  'l)"i=0    then    •'otnpiling'    =     fa!« 
«»nd  ?       «» Ise 
If    s»tate<=     ma  xl  no     then     "^     lookahead    state    */ 
do; 
1  =  ge  t  i  n  1  ;        call      i  <;>  o  k.a  he  a  d  : 

do    while     »  k:  =  looklf  i  >  )      -)     0    and     token    <- 
1=  i+1  ; 
end  ; 
3  ta  te=  look2(  i)  -■ 
end ;        else 
/*    push    sitate       t-/ 

do;       call     incsp: 
s  t  a  tes  t  ac  k(  s>  p)  -     (5e'iri2; 
gtate  =  gfetlal: 
end  ; 
end  ;  /*    o  f    whi  le    roinp  i  1  Ing  */ 

end;       /^ot    while    pass  1    or    pntAs2'<^ 
listsource    =     false; 
listprod    =     false; 
listtoken    =     false; 
call     initial  ize  ; 

pa9s2    =     t  rue  ; 
end)        -'■Po  f    do     forever-'K^' 

end;  /*    of    block    for    parser       >'J.^ 

end;        /*o  f    block    for    dec  lara  t  i-^:is:^/ 


eof 


190h:    /^lofjd    point    for    Int^^rp    pro^ram^/ 


dec  lare    /'*|f  loba  I 
I  i  t 
t  rue 
fa  Ise 
f  o  r  e  ve  r 
cr 
If 


U  tera  1^*'' 
1  1  ter«»  1  1  y 
1  5  t 
1  i  t 
1  it 
1  it 
1  it 


1  I  if^ra  I  ly ' 
'  1  '  , 

O'  , 
' wh  i le     true 

Odh"  , 
•Oah'  : 


declare    /*op    codes    for 

decl  lit 

9 tr  lit 

Int  1 i t 

deb  lit 

brsi  lit 

bgr  1  1  t 

imt  lit 

i  in2  lit 


al^ol-ni    machine 
•  25  "  . 
•  1  •  . 
'2'  . 
'  3  '  . 
•34-  . 
•35'  . 
•27'  , 
•23'  ; 


Ins  true  t  ions*/ 


declare     ^*interface    points     f't-r    op^m    and     interp^^ 


b<lo3 

boo  t 

d  i  skbuf  f  loc 

fcb  loc 

<l  i  r3kJ>uf  fend 

bdoebeg:  In 

inax 

buff 

char 

f  i  I  ename 

f  np 


1  it 

1  1  t 

1  1  t 

1  i  t 

1  i  t 

address 

based 

address 

based 

addrf^ss 

based 


•05h' , 

•Oil-  , 

•80h' , 

'  5ch'  , 

•  lOOh'  . 
Ini  t  ia  K  Of>h)  . 
b'tosbegfin       a'l<lre.-'s  , 
I  u  i  t  1  a  1  (  d  is  l&biif  f  p  nd  ) 
buff       byte, 
i  a  i  t  i  a  1  (  f  c  b  I  o  c  )  . 
file  name       byte  ; 


declare    ^'^bulld    vnriables*/ 


pr  t base 

pr  t*addr 

pr  t  Sen  t  ry 

CO debase 

c  o  <1  e  p  t  r 

Star  kbase 

cnrchar 

swi  tch 

bldSf  la^ 

b 

a 

t  e  mp  1 

t  1 

tenip2 

t2 


address 

address 

based 

address 

address 

address , 

byte  , 

byte 

by te  , 

based 

based 

address , 

based 

address , 

based 


prtSaddr  address 


Ini  t  ia  1(  fa  Isf»  •  , 

codeptr  byt<», 

codeptr  address. 


temp  1 
temp2 


byte  , 
by  f "  : 


/*    declarations     for     i  nterpr-^  t^r    */ 


dec  lare 


dec lare 


con  tz 
quo  te 
wha  t 


1  It 
1  it 
1  i  t 


eo  Ichar  1  1 

eo  f  f  i  1  ler  1  i 

1  n trees Ize  I  i 

d  iskrecs  ize  1 i 

s  t  r  Inp^de  lira  1  i 

conbnf  f s  ize  1 1 

r  o  ns  o  1  e  1  i 

iirs  tack.  11 
maxSh  1  k$  le  ve  1 

ne^a  t  i  vc  11 

pos  i  t  1 vp  11 


1  t 


dec  lare  ra 
rb 
rr 


address 
n  d  d  ••  e  s  s 
a  d  •  i  !•  e  -i  -5 


'  lab 
•22h 
•63' 


•0dh 

•  lah 
'  128 

•  128 
22h 

'80' 

0' 

•48' 

•  lO- 
■<?■  . 

•  1  •  : 


/*stnck.    size     t  iiTves    4*^^ 


-n 


c  basftd 
twoby teoprand    based 

sb  a<Jdrei5'». 

s  t  addres:?  , 

bra  based 

ara  based 

arb  based 

bi*b  based 

nipr  addres>.<  ,. 

mcd  addref??*: 


re 

byte  , 

re 

adtires!? 

va 

l>y  tp  . 

ra 

address 

rb 

addre«s> 

vb 

l>yte. 

dec lare 


dec  1  are 


dec lare 


i  npiitbaf  fer 

byte     i  n 1 

I  ial(conJ)uffslze)  . 

buf fSspaceC  conbnf  f s  ize) 

byte  . 

i  npiit  index 

byte. 

CO  tibuf  f  p  tr 

address . 

fonSchar 

based 

""onbiif  f  p  tr       byt<  . 

inputp  tr 

address , 

Inpu  tSchar 

based 

Inpu tpt r 

h  :  ■  t  e  . 

nuraSread 

byte  . 

pr Int  buf  f leng 

th 

1  i  t 

'71'  . 

pr Intbuf  fer  loc 

1  i  t 

•8nh' , 

tabpos  1 

1  i  t 

'  142"  , 

tabpos2 

1  i  t 

•  156  •  . 

tabpos3 

1  i  t 

'  370' . 

t abpos4 

1  i  t 

' 184' . 

pr  intbuf  fer 

address 

in  i  t  ia  1  (  pr  ^^l^bTT 

'  fer  loc ) 

pr  in tpos 

based 

printbuffer       hv 

i  e  , 

pr  in tbuf f end 

lit 

Ocrh' . 

rereadaddr 

address , 

input  type 

byte  , 

f  ie  IdSlengrth 

byte  . 

s  i^n 

byte  I 

f  I  leaddr 

address , 

fob 

based 

f  leaddr       by  r "=»  . 

f  cbad<l 

based 

(  i  leaddr       a=<!i-  -. 

•5  . 

eof addr 

add ress  , 

buf ferSend 

address . 

r»cord$po  i nter 

address , 

buf  fer 

address , 

ne  X  t  d  i  8  kc  lia  r 

based 

recordSpo in  I er     . 

yte. 

regSl^ngth 

1  it 

128-  , 

b  locks  ize 

address , 

blkSleve  1 

byte 

ini  t  ia 1(235'  . 

error*f  lagr 

byte 

ini  t  ia  1(  f a  1j  ■•  i 

blkCmaxSblkSl 

e  ve 

n 

address , 

by  t  ej»*wr  i  t  ten 

address , 

f Irs  tf  le  id 

byte  , 

eo  f  ra 

address , 

e  o  f  r  b 

address ; 

( rO.r  I  .r2)     (11) 

byte  , 

*  s  ignO,  9  ig:n  I  , 

3  iffn2) 

byte  , 

( decfp  t0 , deep 

t  1  . 

dec«rt2> 

byte  , 

c  tr 

address , 

noSsliif  t 

byte  , 

base 

address . 

bSbyte       based 

base 

byte  , 

b«addr       based 

base 

address , 

lao  Jd 

address . 

hSbyte       based 

lio 

id 

byte  , 

liSaddr       based 

ho 

Id 

address , 

p  t  r*o  nn 

address , 

p  t  r  S  t  wo 

address , 

pSone           based 

pt 

r*one 

byte  . 

' 

p*two          based 

P' 

rStw.) 

byte  , 

^  t nr  kf  op 

addre^js  . 

i-e  tSaddr     base 

i    s 

t ao  k  t  op 

address , 

DTbSplr 

address . 

pob lvalue    based 

pr  l,?f  '  r 

ad<l  rf»  s  s  . 

oouii  te  r 

by  t  e  , 

nio  vo  ?.^  n  t 

addr*^-*.^  . 

re  t$vn  i  tie 

address . 

te^t^'alue  address 

tadl  address 

tad 2  address 

tad3  address 

rSp  t r  byte , 

o  ve  rflow  byte, 

s Igai  f fno  byte , 

e  «  f  1  a  1^  1.  y  t  e  , 

giif  la^  by  te  , 

zeroJresult  byte; 


/'^cp/in    Interface    routines*/ 

tnon  1  :  procedure (  f vine  tlon.parameter)  ; 

dec  lare     f uuc  t Ion    byte , 

parameter  address; 

go  to  bdo9 : 
e  nd  mo  n  1  ; 

mo n2 '•  p r o c e d ur e  (  f  unc  t  Ion.  parn fre  t e r  )     byte 
declare     function    byte. 

parameter    address; 
go  to    hd')8  : 
ond    mon2; 

mon3 : procedure ; 

go  to     boot; 
e  nd    mo  n3  ; 

pr In tc har : procedureC char ) : 

declare    char    byte; 

call    rao  n  1 '  2  ,  c  ha  r )  ; 
end    pr  1  ii  tchar  ; 

prlnt:proced»ire(buffer>  ; 

declare  bnffer  address; 

call  inonl(9, buffer); 
end  pr Int ; 


cp I f! procedure s 

call    pr  1  n  tchar(  cr )  ; 
call    printchar{lf)j 
e  nd    c  r  1  f  ; 

/*    procedures     for    build    */ 

open* 1 n tSf 1  le : procedure  t 
fnp( 9)     =     ■ a • t 
fnp(  10)     =     •  1  •  ; 
fnp(  11)     =     'n'  J 
fnp(32)     =    *)•. 

If    nion2t  15,  r  1  lename)     =    25r?     then 
do  ; 

call    prlnt(.'nl  9' ) : 

call    cr  1  f  ( 
call    no n3 ; 
end  ; 
end    open* inttf  1  le : 

read*  1  ntSf  1  le  :  procedure    byt<=>; 

ret  ur  n    rao  n2  (  20 .  f  i  1 e  nn  ne )  ; 
end    read* 1 nt*r I le I 


/*g'lobal     pr^'-^d  nresK/ 

i  nc  buf  ••  proced  ur»  : 

If  (buff     :=    buff+1)     >:    .Ii -l^J.uf  .Vnd     then 
do: 

buff    =     d  Iskhuf  f  loc  : 


if    read«lnt«f  lie    O    0    then 
char    =    7fhj 
e  ti<]  ■, 
end     inch  It  f; 

s  toScharS  inc ; procedure : 

b    =    c  ha  r  ; 

codeptr  =  fodeptr+1: 
end  s to*r har* Inc : 

nexttfchar  :  procedure    byte: 

call     Inc  buf : 

return    ciii-char     ."  =    char; 
end    nextchar; 

g& tftwoSbytes : procedure ; 

b(  n     =    nextSchar: 

b  =  uextSchar; 
^nd  g^e  tS  t  woSby  tes  ! 

incScodep  trS  two : procedure ; 

codeptr  =  codeptr  +  1  ■•-  1  : 
end  IncScodep trS two ! 

g'e  tpartn."  procedure  addresg; 

returu    sh  1  (  doub  le  (  ne  ?:  t  c  har  ^  ,  8>     +    next  char; 
end    ge tparm: 

packed ec  ima 1 ; procedure (  locSone ,  locStwo )  : 
declare    3 witch    byte, 

locSone    address, 
locStwD    addre-asi; 

pack: procedure ; 

if    (switch    '■=    not    switch)      then 

p«two    =    shK  p«one-30h,4i  ;     /r.    odd    */ 
e  l»e 
do; 

patwo    =    pStwo    or    (p$one-30h>;     /«    even    */ 
ptrStwo    =    ptritwo    +     1: 
end  I 
end    pack: 

ptr^one    =     loc#one ; 

plrStwo    =     loc*two; 

9wl  tch    =     f a  Ise  ! 

t  e  mp  I    =    p  t  r  •  t  wo  ; 

pStwo    =     9; 

ptrStwo    =    ptritwo    +     1: 

teiap2    =     ptr§twoi 

pltwo    =     0; 

ptrStwo  =  ptrStwD  +  1: 

do  while  pfone  <>  0; 

If  (  paon*-  >=  '0')  and  (p«one  <=  '9')  then 
do: 

ca  1  1    pack; 
tl    =     t  1    +     1  t 
e  lid  ; 
e  Ise 

i  1     pSone    =     '  .  '     t  he  u 
t2    =     tl;     /*     left     offs'^t     to    decpt    */ 
else 
do  t 

errortflag    =     true; 
re  t  ur n ; 
end  : 
If     ((ptrSone     :=     ptr»one+n     ^=    diskbuffen.P     and    hldSflajr    th^.r 
do; 

ptrSone     =    d  Iskhu  f  f  l'^- ; 
if    r»ad»ln  t»f  1  I.-     :>     '♦    then 
do  ; 

p»one(2)     =    rrii; 
v^  t  urn: 


'h 


e  nd  } 

end  ! 
end  ; 

1  r    syfi  tch    then 
do; 

t 1    =     t  1    +     1; 
ptrtftwo    =    ptrStwo    +     I; 
«nd ; 
t2    =     tl    -     t2:     /*    right    offsi^t     »o    decpt     j:/' 
M    =     t  I    /    2 : 
p«  t  wo    =     t  1    +    2 ; 
ptrStwo     =     pfrStwo    +     1; 
pStwo    =     positive;     /*     thl^ 
end    packed eo  'tnn  1  ; 


'  ;>^!fl    used     for    dec    sig'n    */ 


/*    proredur«»s     for     Interp    ■>■•- 

readchar  •■  prof  edure    byte: 

re  t  urii    nion2(  I  .  0  >  ; 
end    readohar; 

read : procedure' a) ; 

declare    a    address; 

call    moal(10.a)! 
end    read; 

open : pro^ edurf     byte; 

re  turn    mon2(  I6ifileaddr)! 
end    open; 

c  lose : proc ed ure    byte; 

re  t  urn    n;on2(  16,flleaddr'; 
end    c  1  o^e ! 

d  iakread  ■•  procedure    byte; 

return    nion2(  20  .  f  i  lead  Jr  >  ; 
end    d Iskread ; 

d  Iskwr  1  te  ■■  procedure    by te  : 

return    mon2( 2 1 . f 1 1 eaddr M 
e  nd    d  1  •  kwr  i  I  e  ; 

make : proc edure    byte; 

return    raon2( 22 , f 1 leaddr ' : 
end    make; 

de le  te : procedure ; 

call    rnonK  19,  f  lleaddr  '  : 
end    de  le  te  ; 

se  tdma : procedure ; 

call    roonl ( 26 , buf f er ) ; 
end    9 e  t d ina  : 

se lee t : procedure ( dr I ve ) : 

declare    drive    byte; 

call    monH  14  .  dr  1  ve  )  ; 
end    select; 

maski  procedure  <"  locat  lon^     ndrlr"«'«»: 
declare     location    address. 

1     baaed     location    T'l-ir^s'* 
return     I    an'l    Obfffh: 

end    mask.: 


checks  1  n  rSs  i  z\i :  procedure  (  vn  1  •>"  '*     by'  e  ; 
declare     value     addre«»<5: 
If    ro  H  hiflrh<  va  1  ue  )  .  I  »      'b    - 

re  turn    n-'  sea  t  i  ve  : 
e  Ise 

re  t  urn    po«?  i  t  l  ve  ; 
e  nd    c  he  r  k.J  i  ii  I  '?s  1  (in ; 


checks  Int:  procdureC  s  tack*  lo-^  ^     hvt<?  : 

dec  tare    stackfloc    adlr^s*: 

i  f    no  t  (  ro  I '.  h  i  gh(  s  t  ai-  k*  1  o <•  •  .  2  i  •      t  he n 
re  turn    true : 

else    retura    false; 
end.   checkSin t  ; 

checkSteitip:  proc«d«re(  s  tack^  !'  '^  '     by  t  e  : 
declare    stack*loc    addr-s?;  . 
if    (  ro  1     f  hi  ghC  a  tack?  loc  '  ,  i  ;  ?     and 

(  ro  1(  h}ffJi<s '3^1^*''^'-     ■ -' ^     then 
re  turn     true ; 
e  l-ae    retnrn    false; 
e  nd    c  he  c  tvS  t  e  mp  ; 

se  t  Sup4n°i9  :  procedure  ; 

If    not    checks  IntSg  if?n(  art        then 

ara    =    ara    or    4000h; 
If    not    checks  in  tSs  i  (|^n(  ai-b        t  h*"  n 
arb    =     arb    or    4O0Mh; 
end    setSupSneg; 

checkSnei?:  procedure; 

If     not     c  liec  kS  in  iSe  I  g^nf  arb  '      tizen 
arb    =    arb    and    0bfffh: 
end    checkSneg; 

popSs  tack: procedure ; 

declare    num    byt<^: 

ra    =    rb; 

if    o he c kS t e mp '^  a r .'^  "      ^ he n 
rb    =    rb    -    t  brr-'J^  ; 

e  Ise    rb    =     rb    -    2 ; 
end    pope's  tack; 

pnshSs  t ac k: procedure ( num)  ; 

declare    nuin    byt*': 

rb    =     ra ; 

ra    =     ra    +    num: 
end    pushes  tack: 

move  :  procedure  (  source  ,desit  .oonnt  >  ; 
declare    source    addr-esf, 
de«  t  addref^s  . 

count       byte . 

schar    based     •a<-,t:r'-o     byte, 
dchar    based    .!»*•;     "^yte; 
do    while  (count     :=    rnni>r     -     1;     <>     255; 
d  c  ha  r    =    s  c  ha  r  ; 
source    =    source    •*-     1  ; 
des  t     =     des  t     +     I  : 
end  ; 
end    move  ; 

fill: procedure ( des  t , char . n)  : 

•'*  f  1  1  1      locations    startijiiy    3t     d<*iat     with    char     for    n    byte*'?^' 
dec  lare    des  t    address;  , 
n  byte , 

d  based       He«'        byt"^, 

c  ha  r    byte; 
do     whi  le     (  n:  =n-  n      '  ^     Of  .li: 
d    =    c  ha  r  ; 
des  t    =    des  t    +     1 : 
end  : 
e  nd    fill; 

errorSrasaf:  procedur'»'mPc>  : 

declare    msa;    addres-?  : 

call     prlnt*char('      '^: 

call    p r  1  n  t  Sf'  ha r  (  h  i  (T h '  Tn«5  o; '  I  : 

call     pr  I  n  t$'-  bar  (  low"  n-s^  '      ; 
end    errorinwflf : 


">r. 


wnrnlng;:  procedar<?(  wnrnco'le  )  ! 

declrrp    w3rnco<'e    ad'lr'-ss; 

call    crlf: 

call    priut(.      'vrarn  ins    S  '  ^  ; 

call    error$rasijf(  vrarncod*?  >  ; 
end    varning: 

error  :  procf'liire  (  e  rrcode  )  ; 

declare    errcode    addr-»«n; 

ca  1  1    cr 1 f ; 

errorSflaif    =     true; 

call    printC.      'error    3'>; 

call    errorSfisar'- err<"  ode  )  ! 
end    error ; 

/T.  file    procesmina:    i*T-if  in'=-.'='.     for    use     with    cp/m  ■'.:/ 

in  1  f  ia  1  iseSd  is»kSbuf  fer  :  pror ^'  •  ire  ; 

call     f  1  1  U  buf  fer  ,eof  f  i  I  l»r  .  12r.)  ; 
end     ini  t  ia  1  i7:-'?<l  IskSbuf  f  er  : 

bnf  f  e  rSs  t  a  tns!?by  te  iprocedur'e     b^'t^^: 

re  t  urn    f  c  b  '  ;13)  ; 
end    buf  f  prf8s  t  a  tusSby  te  ; 

se  tSbufferSs  ta  tusSbyte  '■  pro  ceJi>i-o-t  s  ta  t  ns  )  ; 

declare    status     byte: 

fcb(33)     =    status; 
end    s>e  tSbu f  f  e r*si  t a  t  uftSby  t  e  : 

wr  I  teSina  rk.:  procedure    byte; 

return    buf f e rSs t a t usSby te : 
end    writeSmork.; 

se  tSwr  i  t  ^^Snlar  k  :  procedure  : 

call    5:e  tSbuf  ferSs  ta  tus  Jbyf-'  buf  ferSs  tn  t  usSbyte    or    01h); 
end    se  tSwr  1  te5mark; 

c  learSwr  I  tefmark.:  procedure  ; 

call    set«bafferS8tatus9byte<'bnfferSstatus*byte    and    0feh>; 
end    c learSwr 1 teSraark; 

ac  t  IveSbxif  fer  :  procedure     byte; 

re  turn    shr(  buf  ferSs  tn  tr.sSbyte  .  1  '  ; 
end    ac t 1 veSbuf f e r ; 

se-tfbufferS  inac  t  We  '■  procf^dur'»  ; 

call    se  tSbul  fer«9  ta  t  unSby  to  '  buf  f  erSs  ta  t!i«?byte    and    0fdh^  ; 
end    !?e  tSbuf  f -^i-S  inac  t  i  vf»  : 

se  t#bufferSac  t Ive • procedure ; 

call    se  tibuf  ferJs  ta  f  U!?«byt'i'(  buf  ferSs  ta  tu^$byte    or    02h)  ; 
end    »e tSbuf f er*ac t 1 ve ; 

ae  tJrflndoraSraode  '■  procedure  ; 

call    f?e  tSbuf  fer»s  ta  t  usi«by  t  <-     b:if  f  er*s  ta  t  usiSbyte    or    80h)  ; 
end    ae  tSrandomSinode  ; 

random#im>de  :  procedure    byte; 

re  turn    ro  I  <  buf  f  f^rSs  ta  t  usSb  %  ^^  .  I  )  : 
end    rnndoraSwode : 

d  Iskfteo  f;procr»dure: 

If    eofaddr    =    0     then 
ca  1  1    error (  ' e  f ' )  ; 

re     =     eo  f  a'ldr    +     1  : 

ra     =     eo  f ra ; 

rb    =    eo  f rb ; 

gro  to    eo  fex  i  t  ( 
end    d  IskSeo  f  ; 


f  i  1  l*f  lie  Sbuff^jr  :  procedure  ; 
If    dlskread    =    0    then 
do  ! 

call    ge tSbuf f erSac t i ve : 
re  titrn: 
end  ; 
if    not    ran«lom*mode     then 
do; 

call    dlsk«eof: 
re  turn; 
end  ; 
call     Inl t la  1 lze«d isk«buf f»r; 
call    sie  tSbuf  f  erSac  t  i  ve  ; 
re  turn: 
end     f  i  1  ISf  UeSbuf  fer; 

wr 1 teSd is kS 1 fSreq: procedure ; 
If    wrlteSmark    then 
do? 

If    dlskwrlte    <>     0    then 

call    error('dw'); 
call    c  1  earSwr  I  t  e*inar  k  1 
If    randomSmode     then 

call     3e t Sbuf f erSl nac t i ve : 
e  Iflie 

call     Initial  izeSd  is  k«'<nf  f«»r  ; 
end  ; 

recordSpo in t e r     =     buffer; 
end    wr  1  teid  iskSl  fSreq: 

a  tSendtd  ifkSbuf  f  er  •*  procedure    hyte  ; 

return    (  recordSpo  i  n  ter     •' =     recordSpo  i  n  te  r    +     1)     >=     buffer^end 
end    a  t«endSd  i3k«buf  fer  ; 

vnrSb loc kSs Ize : procpdnre     hyto; 

return    blo'^kslze    <>     0; 
end    vnrSb  1  oc  ks  ize  ; 

9  toreSrecSp tr : procedure  ? 

fcbadd<  18)     =     recordSpo in ter ; 
end    » toreSrecSp tr ; 

wr  i teSaSbyte ■ procedure ( char t  : 
declare    clmr    byte; 

if    varSb  lockSg  Ize    and    (  byte^wr  i  t  ten    :=    by  t  eswr  i  t  ten+ 1 ) 
>     blockslze     then 
ca  11    er for <  ' e  r  *  )  ; 
If    a tSendSd lakSbuf fer     then 
call     *<Tite«di8kSif»req: 
If    not     ac  t  1  vfSbuf  f  er    and     randoreSmode     th<»n 
do: 

call     f i  1  ISf  lletbuf fer: 

rcb^32)     =     fcb(32)     -     I;     -'»:    reset    record    no    */ 
end  ; 
nft  X  t  d  I  s  kc  ha  r    =    c  ha  r  ; 
call    se tSwr i t eSmark; 
end    wr  1  teSaSbvte : 

g»etSfl  teSaddr:  procedure  t 

prtSnddr    =     mask(ra): 

fllead'lr    =     p.rtSentry: 

eofaddr    =     fchaddf  19) : 

call    po  pS^s  tack; 
end    set«file*n<ldr: 

9e  tSfl  lei3po  Inters  :  prr>c«>ditre  ; 

baffer$eud     =     fhuffor     :=     fil^odc'r    +    r?3^     -^    dlskrecsize; 

rerordpo  1  n  tc  r    =     fcbnd'l'    1<P. 

blocksiz"    =     fchndd(l7i; 

call    «<  e  t  d  ir.n  s 
e  nd    se  tS  1'  i  1  «*  .?p<"  Inters; 

se  t  upS  file  Se  ?r  I  •  n  t  ^  proc  «•■'  n  rv  : 


ir    open    =    255    then 
do: 

if    make    =    25S    then 
call    error( ' rae ' ) ; 
en<l ; 
ond    set  npSfile  Sex  lent; 

d IskSope  n : procedure ; 

declare    (  f  i  lename  ,  bnf  f  .  b  1  k.?«  ize  )     address 
( i . J )     byte . 
char    baaed    buff    byre; 
1 ncSj : procedure    byte; 

ret  \ir  n    (j     :=     j     -^     l>; 
end     incSj  ; 

prlflfaddr    =    rnaskCra); 

call     popSstack; 

b IkSs  i  ze    =    ara ; 

ca 1 1    popSs  tacki 

buff     =     iiiask(  ra)  ; 

call    pop*stack; 

buff    =    buff    -    char; 

f  1  leaddr  ,  i»r  tSen  t  ry    =     ra  ; 

buffer    =     ra    +    0 ; 

call  fill  ((filename  :=  ra  +  1).'   '.!!): 

lfchar(2)  =  ':'  then 

do: 

bra    =     (char(l)     and    Ofh)     -     1: 
1    =    char    -    2; 
buff    =    buff    ■»■    2: 

end  : 
e  Ise 

1    =    c  ha  r  r 
If     I     >      12     then 

I    =     12; 
bnff    =    buff    +     1; 
J    =    255, 
do    while    f  rhar(  IncS.p     <> 

end  ; 
call    mo  ve     (buff,  file  ua  me . J  >  : 
If     1    >     IncSj     then 

call    move     (  .  char  (  J  ^  .  f  1  1  -« tianre-'-S  ,  1- J  )  ; 
call    .qe  tur*f  1  leSex  ten  t  ; 
ara(  1<»)     =    0; 
ara( 18)     =    ra    +    256; 
ara( 17)     =     blkSsize; 
ra    =    ra    +     168; 
end    dle«kSopen; 


)  and  f J  <  B) : 


ae  tSeofSs  tack: procedure ; 

eo  f ra  =  ra ; 

eo  f rb    =    rb ; 
end    se t«eo f 8^ tack; 

se  tnpSd l^kS 1 o ■ procedure : 

call    ge tSf i leSaddr ; 

call    ^e t*f 1  le*po Infers ; 

byte»«wr i t t en    =    0t 

r Irs  t  f  le  Id    =     true  j 
end    se tuptd 1 "kS )o t 

randoni#s*e  tup  :  procedure  t 

declare    bytecount    addr^-^s. 

rei'ord    addr'»'g'="  , 

extent    byte ; 
If    not     var*b  1  oc  k$ra  i  T-.e      I  he  ii 

call    erJ  or  f  '  ru  ■  )  : 
ara    =    ara    -     \ : 
call    se  fSrn  ndomSmod''  : 
call    «»e  tS  bn  i"  FtM-*  i  nar  t  i  vo  ; 
call     wr  i  t  e5d  i 'jk3  i  f  Srf   i : 
bytecount     -     b  locks  iz--     '^    r>rn: 
recordpo  Inter    =     (byt-^oiint     nn 


7fh.>     -^    biirr«r    -     1 


\^  1 


call    jf  tore*rec8ptr : 
record    =    s hr (  by teconn t  ,  7)  ; 
extent    =    slir(record,7); 
if    extent     -  >     f  c  b  (  1  2  >      t  h«  !i 
do  ; 

if    <?lose    =    253     fhen 
ca  1  I     error(  '  ce  '  )  ; 
fcb(  12)     =    extent  : 
call     fle t up*f i  le*ex tent : 
end  ; 
fcb(32)     =     low(record)     and    7ih: 
call    popSstack; 
end    randuniS*e  tup ; 

ge  tSd  lsk*c  liar  :  procedure    byte; 
If    a  t.^.>nd«d  iskSbiif  f^r     then 
do: 

call    wr  1  teSd  ie»k»i  fSr»>.4; 
ca  1  1     ft  1  laf  i leSbuf fer: 
end  : 
If    not     active  8b  II  ffer     then 

oa  I  1     f  i  1  I»f  1  le«biif  fer: 
if    ne  c  t  d  I  s  k.c  ha  r    =     e  o  f  f  i  I  1  ^  r     t  he  n 

call    d  isk^eo  f : 
ret  iir  ti    ne  x  t  d  1  s  kc  ha  r  ; 
end    (Bfe  tSd  IskSc  har  ; 

d  1  skSc  lose  •■  procedure  t 

call    -se  tSf  i  lef  po  in  ter^  : 

call     v,T  i  te$d  iskSi  f  Sreq; 

prtSaddr    =     mask(ra) ; 

if    close    =    25.1     then 
ca  I  1    error(  ' ce '  )  ; 

prtSeutry    =    f^\ 
end    d Is  kflc  lose; 


c  learSpr  intSbnff : procedure ; 

call  f  I  I  1  (  (  pr  1  n  t  buf  f  f' r  :=  pr  i  n  tbnf  f  er  loc  ^ 
end  c  lear«pr In tSbuf f J 

dumpSpp lnt§buff : procedure ; 

declare  t«'nip  address, 

char    based     temp    hyte  ; 
temp    =     pr intbuf f end ; 
d  o    wh  lie    r  ha  r    =     '      '  ; 
t  e  mp    =     t  e  mp    -     1  ; 
end  : 
call    cr 1 f  : 

do    printbuffer    =     pr 1 n t bn f f er loc     to     temp; 
call     prtntchar^printpop); 
end  ; 
call    c  learfpr intSbnf f ; 
end    duinpsBpr  i  u  JSbuf  f  ; 

loadSpr lntfbaff;procpdure(chnr1 : 
declare     char    byte; 
printpos    =    char; 

i f ( pr  In tbuf f er     :=    printbuffer    +1)     > 
prlntbuffend     t  h"' n 
call    dumpSpr  i  n  tSbiif  r  : 
end     load*pr  i  ri  t  Sbnf  f  : 


'  .72) 


on  t  put  :  procedure(  des<  t  ,  c  hni'i  : 
declare    dr'^t     byt«», 
c  hs  r    b  y  t  f  t 
If    des  t     =    console     tlT»n 

call    pr  t  n  t  $c  ha  r  <  <"  har  )  : 
else 

call     wT  i  ipJaSby  t  "  *■  •:  har  ' 
^nd    <>«  t  pu  t  » 


to    con=5olo     *' 
:■-      to     d  isk    ■^■' 


wr  1  teJd'^c  '■  proi-^  <1'it"p  '  'aoiir<^'^  .   ''^  ^  ^  ^ 


dec  lare    sonrce    address, 
num    by te  , 
rnim«d  ia;  I  tg    bytp, 
c  ha  r    byte, 
1  ndex    byte . 
des  t     byte , 
coun  t    by te ; 
« toretone : procedure t 

if    (switch    :=     not    ew)toh>     then 
do: 

char    =    shr( h«by te . 4 '     or     '0'; 
If    Ccoant  =  0)     and    (oiiar='0')     then; 
else 

call     outpu  t  (  des  t  ,  chr'v  >  ; 
end  ; 
e  l^oe 
do: 

call    oufputf  lest  ,  '  ';?byte    and    Ofh>     or     'O'); 
hold    =    hold    -r     I: 
end : 
count    =    count    +     I; 
end    s  tor»*one  : 

ho  Id    =    so ur c e  ; 
s  igrn    =     h«byte(  1)  ; 
if    siarJi    or    OOh    then 

call    ou t put ( des t . '      '); 
else    call    o utpu t ( des t , ' - ' > : 
count     =     0; 

hold    =    hold    -    hSbytp; 
nuin«di<?it3     =     hSbyte    «    2: 
hold    =     hold    +     1; 
nura    =     nuniSdig-lts    -    hSbyte; 
switch    =     fa  Ise  ; 
ho  1  d    =     ho  1  d    +     1  : 
do     Index    =     1     to    nuraid  ii?  i  ts*  1 : 
if    count    =    num    then 
do; 

rail  oHtput(dest,'.''! 
count  =  100; 
end  : 
e  l»e 

rail  9  f oreSone ; 
end  ; 
end  wr  1  teSdec  ; 

wr 1 t eSs  t r : procedure ( ho  Id . des  t '  : 
declare  hold  address, 

h  based  hold  h"v»e. 
des  f  byte , 
1  ndex  byte : 
ho  1  d  =  ho  I  d  -  h : 

do  index  =  1  to  h; 

call    output(d°<'t,ln  i  ndex)  )  ; 
end  t 
end    wr  i  t^f  a  tr  ; 

wr  1  teS  1  n  t  •'  procedure  (  va  1  ue  ,  de^  t  i  ; 

declare    value    address,      i     ^y^e.     count    byte; 
declare    declnt(5)     address     i  u  i  t  1  a  1  (  lOOOO  .  lO0f>.  100  ,  10  ,  1 )  ; 
declare     (flag,dest)     byt<»: 
9  Ifl^n    -     c  heck.S  In  t*s  ia:n<  va  lu"  •  : 
If    slj^n    =     ne^ratlve     then 
do  ; 

value     =    -value    and    Obfffh:        '^^    mask    .ff    next     to     left    hit     >K/ 
call    output(dest,'-'): 
end  ; 

else    call    outpnt(dpst.'      '): 
f  laflf    =     fa  Ise  J 
do     I     =     0     to    4; 

count    =    noh: 

d"     wh  1  1  e     vn  1  ue     '^  =     'i  '^"^  i  ;i  '  •    i  1  : 
va  1  ue     =     va  1  UP     -    .)»■■    i  i: '  i    I  '  : 


K.:i 


r  lag-  true  i- 

conn t = CO un t + 1 ! 
end  : 
If     flaa:    or    (1    >=    4)     then 

call     output ( des t . c    lu  ;'  : 

call    output ( de3  t .  '      '  '  ; 
e  nd  { 
end    wr I teS Int ; 

wri  teStoSd lak^procednre^  typo )  ; 

/'Jt    type    0- In  t  eger  ,  type     I-'jo  ?  i  tan  1  ,  type    2— strinof    */ 
declare     type    byte; 
{  f     t  ype    =    0    t  he  n 

call     vrr  iteSlntCara.  1)  ; 

If     type    =     1     then 

call     wr 1 }e*dec  (  ara ,  1 )  ; 

if    not     firstfleld     then    /'♦'    separate     fields    with    commas    */ 

call     wr i te«a4byte( ' , ' ) ; 
else     flrstfield    =     false: 

if     type    =    2     then 
do; 

call     wr  1  t  eSaSb  y  t  e  (  quo  t  '^  ''■  ;     /*    9  tr  ingrs     put     in    quo  tea    <:- 
call    wr  i  teSs  tr  (  ara  ,  1 )  ; 

call    wr  i  t  e$a#by  te  (  quo  »••>■;     /*    add     trail  ingf    quo  teg    */ 
end  ; 
ca 1 1    popSs  tack: 
endwrlte*to«dlffik; 

conca  tena  te  :  pi'ocedure  ; 

declare     f8i7;el,size2,t$sizf'     byte; 
tempi     =    mask(ra); 
call     popSs  tack; 
if    not     f  hec  kStefnp(  ara  )      ^h^^^ 
do: 

temp2    =    niask(ra)t 
temp2    =     temp2    -     t2; 
size2    =     t2    +     Ij 
call    mo  ve  (  temp2,  ra  ,  s  lze2)  ; 
end  ; 
e  lae 
do  ? 

9  i2e2    =    bra ; 
ra    =    ra    -    bra  ; 
end  ; 
t  e  rap  1    =     t  e  mp  1    -     t  1  ; 
size  I    =     t  1  : 

call    rao ve (  temp  1+ I . ra  +  s lze2 ,  =  ize  1 )  ; 
tJsize     =     sizel    +    gize2; 
bra    =     t •«  1  ze    -     1  : 
ra    =    ra    +     t*g Ize ; 
bra    =     t8slze: 

bra(l)     ?    0cOht    ^^    set     t'^mp    bits    t/ 
end    concatenate; 

conver  t#to#  1  n  f  :  procedure  (  lor,«-i7:e>     nddress  ; 

declare    deciiiKH)     nddress     initial     (  1  9000  .  iOOO  .  lOO  .  10  ,  1 )  . 
lf>r     siddress, 
ho  1  d    add ress  , 
li    bused     ho  Id     byt^  , 
null!    address  . 
(   i  .  J  .  s  ize  )     byt<»  : 
nuBi    =    0 '. 
J    =    5: 

ho  Id       =     loc    -••    s  lz*>    -     1  : 
If    B  lie    ^     ."     t  hen 

call     errrn-f'jo'); 
e  Ise 
do  ? 

do     1     =     1     to    size; 


If..! 


nuni    =     nura    +    (h    -    HOb'     *    decint(j:=j-l): 
ho  M     =     ho  Id    -     1  ; 
on-;  ; 
if    nurn    s=     1^383    then 

re  t  uTMi    n:im; 
e  Ise 

rail    err<^r(  '  lo  '  )  ; 
end  ; 
e  nd    c  o  a  ve  r  t  $  t  o  S  i  a  t  : 

one®  le  f  t  :  pro*' e'i  nr<»  ; 
declar'-'    ctr    byte; 
if    shr' bSbytfl  1 )  ,  4)     =    0    then 
Jo: 

•  io    ctr    =     1     to    9; 

}.Sbyte(otr)     =    sh  l(  hS?> -v-te(  c  t  r)  ,  4)     or    shr'  b«by  te  f  c  tr+ 1  ^  .  i) 
end  ; 
end  ; 

e  ls!e     noSshlft     =     true; 
end    oneS  l-^  f  t  ; 

oneSr  liarht  :  procecJure  ; 
declare    ctr    byte, 

1 ndex    byte ; 
c  tr    =     11; 

do     Inde^    =      1      to     10; 
ctr    =     c  t  r—  1  ; 

b«byte(ctr>     =    ahr<  b«by  t  e  f  <?  t  r)  ,  4)     or    •slil  <  bSbyte  (  c  ti — 1>,4.': 
end  ; 
end    oneSr  i  jfht  ; 

shi  f  t$r  Ijiriit  :  procedure  (  count )  ; 

dec  1  are  V  CO un t , c t r )     byte; 

do    ctr    =     1     to    count; 
call    oneSr  iffht ; 

f^nd  ; 
end    shir  t5r  Ij^ht  ; 

shi f tS le f t : procedure ( count ) ; 
declare    count     byte; 
no shift     =     false; 
do    ctr    =     1     to    count ! 
call    oneSlefti 
If    noshl  f  t     then 
re  I  urn; 
end  I 
end    shlft^left; 

lead  1  n(i;97^i^ro«9  :procedure(addrl  byte; 
dec!at"»  count  byte, 
ctr  byte . 
addr  address; 
coun  t  =  0 1 
base  =  addr; 
do  c  tr  =  1  to  9 ; 

If    (b»byte(ctr)     and    OfOli)     <"     9    then 

r<»  t  uru    count  ; 
coun »     =    count    +     I ; 
If    (  l»«byte(  G  tr)     and    Ofh)     <>     0     then 

re  t  urn    coun  t ; 
coun  t    =    count    +     1 ; 
e  hd  ; 

1  f    basp    =     . rO    then 
do  ; 

call    error('dz'^; 
b«byte<9)     =     10h; 
de  -ptW    =     1  I 
re  t  urn     K> ; 
end  ; 
re t urn    count; 
end     lead  I  na^S'^^croeg  ; 

r  1  Sarre  a  f<^  "•  :  prof- o  dure     byt"; 


declare    (L.ctr)     byte; 
do    ctr    =     1     to    9; 

If    rl(ctr)     >     (I     :=     (.99h-r0(  c  ir)  )  )     thcr. 

re tnrn    true ; 
lfrl(ctr>slthen 
re  t  urn    fa  Ise  : 
e  nd  ; 

e#f  la^    =     tnie  ; 
re  t  urn     true ; 
end    r iSgrea ter ; 

all ign' procedure ; 

dec  lar'?(  X,  y'     byte; 

r ightSop: procedure( addr ) ; 
dec  lare  addr  addreaa ; 
if  no  shift    then 
do  ; 

base  =  addr: 

call    3hi  f  tSr  ia:ht(  y    :=     t    -    ctr): 
end  ; 
end    r  It? htSop; 

y  =  0; 

If  decSptO  >  decSptl  then 
do; 

base  =  . r  1  ; 

call    shlft«left(x    :=    decptO    -    decptl); 
decptl     =     decptl    +    ctr-1; 
call    r lght*op( . r0) ; 
decptO    =    decpt0    -    y; 
end  ; 
e  Ise 
do  I 

base     =     .rO; 

call    "^hif  t«lef  t(  X    ;=    decptl    -    decSpfO); 
do>cpt0    =    decptO    +    cti — 1; 
call    r  i(5htSop(  .  r  1 )  ; 
decptl     =    decptl-    y; 
end  ; 
e  nd    a  1  1  i  grn  : 


add#r#: procedore  (  second , de^ f )  ; 

declare     (.second,     dest)     address 

ho  Id    =     second! 

base    =    des  t  1 

cy    =    0i 

ctr    =     101 

do     Index    =     1     to     11; 

a    =    r0( ctr); 

b    =     h«byte(c  tr)  ; 

I    =    dec(a    +    cy); 

cy    =    carry   and     I; 

1    =    dec(  1    +    b)  ; 

cy   =    fey   or    carry)     and     I; 

bSbyte(ctr)     =     1; 

ctr    =    ctr    -     1 ; 
end  ; 

If    c y    t he n 
do: 

c  tr    =     10; 

do     Index    =     1     to     11: 

i     =     b«byte( ctr); 

1     =    dec  (  1     ■♦•    cy)  I 

cy    =    carry    and     1; 

bSby ;e( ctr)     =      i  ; 

ctr    =    ctr    -     1; 

end  ; 
end  ) 
end    ald*r»>: 


( index, cy 


b ,     i     )     byte 


comp 1  imen  f  : procedure ( nnmb ' 
'!eclar<»    nurtb    byte; 


if.^> 


do    case    numb t 

ho  M    =     .rO? 

ho  1  d    =     .  r  1 ; 

hold    =     .r2; 
end ; 

if    g  IgnSO(  numb)     then    9  i^rnOC  numi>^     =     negative; 
else    9  i  5nS0<  numb)     =     po^^iti^--    ; 
do    ctr    =    0     to     JO; 

h«by-te(c  ti-)     =    99h    -    hSby  t  r- (  c  tr  )  : 
end  t 
e nd    CO mp 1 i me n t ; 

r  Ig'htSjug  t  i  f  y :  procedure  (  ntimh  >  : 
declare     (  natnb  .  i )     byt  e  ; 
do    case    numb: 
base    =     .rO; 
base    -     . r  1  ; 
base    =     .r2; 
end  : 
1     =     01 
do    while     f((i:=i+2)     <     dec p r^( numb) )     and     • bSby te < 9) =0) ) 

ca I  I    shlf tSright(2)  ; 
end  ; 

decpt0(numb)     =    decptO(numh)     -     '   i-2); 
end    r IghtSjus t i f y ; 

ge  tSmul tSd  iv: procedure ; 
noshi  ft    =     f a  1  se  t 
If     (sigrnO    and    sif^nl)     or 

(not    s  i$rn0    and    not    ■«  i  grn  1  '     then 
8  i  gn2    =     po  s  i  t  1  ve  ; 
else    siffn2    =     nei^ative; 
cal 1     fill     (  . r2,0.  10)  ; 
end    se  tSmnl tSd  i  v; 

add#ser  I es  :  procedure  (  co'xut  ^  ; 

declare    (i.connt)     byte; 

do     1    =     1     to     coun  t ! 

cal 1     add«rO< .r2. .r2> ; 

end  ; 
end  addSseriest 

mu  ltiply:procednre(value)  ; 
declare    value    byte: 
if    value    <  '>     0    then 
do  ; 

if    noshl  f  t     then 

call    error< ' o v' ) ; 
call    addSser leaf va lue  •  : 
end  ; 

base    =     . r0: 
call    one* left: 
e  nd    ran  1  t  I  p  1  y ; 

d Ivide • procedure : 

declare    (  I  ,  j  ,  k.,  x,  lz0.  It:  P     byte: 
call    ^e tSraul tSd 1 vt 
s*f  lasf    =     true  ; 
etf  lag:    =     fa  Ise  1 

If    (  lz0     :=     lead  tngrtzei'.)os''      .7-0>>     <> 
(  Iz  I      :  =      lead  IngJzero'^'S  ^  .  r  I  '  '      t  lien 
do; 

if     IzO    )      Izl     then 
do: 

baBe= . r0 ; 
call    shl  f  tSIf- r  t(  i  :  =  1-0- Iz  1)  : 
decpt0=clert»tO*i: 
X    =      Izl  : 
end  ; 
e  Ise 
il  o  1 

base     =     . r I ; 

onll     -ghi  f  tS  1"  r  t  f    (:-;:•;- 1^:0)  : 


decSptl    =    decptl    +     i; 
X    =     lz0: 
"nd  ; 
end  ; 
e Is*    X    =     Iz  1  : 

decpt2    =     19    -    X    -^    dfcptl     -    'lecptOi 
call    CO iirp  1  i me n  t  (  0 )  : 
do     1    =    X     t  o     19; 
J    =    0; 

do    while    rlMgra&ter    aii<l    ?l5flag; 
en  1 1    add»r0(  . rl .  , r I  '  : 

J     =     J     +     >•• 

if    eSflag*    =     trne     then    5$flagf 
end; 

k    =    shr(  1.1); 
if     1     then 

r2(  k)  =  r2(  k)  or  j ; 
else  r2(k)  =  r2(  k)  or  shlfj,4): 
base  =  .r0; 
ca  1  1  oneSr  ight ; 
end  ! 
e  nd  divide; 


=     f a  Ise 


checkSresul t : procedure ; 
if    r2    =     99b    then 
do: 

call    CO  rap  I  i  me  n  t  (  2 )  ; 
S)lg^n2    =       sl9n2    xor     I: 
end  ; 
e  l^e 
do: 
if    r2    <>0     then 

ca 1 1    error<  ' o v* ) : 
If    not    sSflag    then 
9  i  flrn2=  po  9  1  t  1  ve  : 
end : 
end    c heckSresu  1  t  ; 

checkfs  'tgn-  procedure  i 
s9f lag- fa Ise  t 
if    slguO    and    slgrnl     then 
do  I 

«  1  gn2    =     po  a  1  t  i  ve  ; 
r©  turn; 
end  ; 

a  i  ff  n2    -    ne  gra  t  1  ve  I 

if    not    slpnO    and    not    si^nl     fhen 
do ; 

sSf  \fig=  true  ; 
retin-n; 
end  I 
if    si  gn0    t  he  n    call    c  o  mp  1  1  me  n  t '  I )  : 
else    call    compllment(0): 
end    checkSslsn; 

add ! procedure  ? 

call    c  he  c  kt s  i  gn ; 

cal  I    add«r0(  .rl.  . r2)  ; 

call    checkSresu  I  t  ! 

decpt2  =  decpt0; 
end  add : 

cpySreg2*onF  tack: procedure : 
declare    count     byte, 
I  byte ; 

call    r  iiarhtS.ius  t  if  y(  2)  : 
call     popJ«  tack) 
conn  t    =    0 ; 
base    =     . r2 ; 

I     =     10    -    f  decpt2+ 1 1     2; 
do    while     fbSbyte     =     0)     md     f''->unt 
baste     =     base     +     1  ; 
coun  t     =    'JO  nn  t+     1  : 


{f>n 


ehd  ; 
ra    -    rb    +    2; 

bra(0)     =     (count     :=     1<*    -    c'>u\f>: 
bra( 1)     =    dec«pt2! 
call    niovie(base,     ra-*-2,  c ->nu  t  '  • 
bra(  coaiit+2)     =    counf+2; 

brd    (coant  +  3)     =    aign2    or    0'.'<)h:     y*    set    s  iftn    and     temp    bits    »v 
ra    =«    ra    +    count    +    2; 
end    cpy#regr2Sons  tack.; 

loadSreg'^  procedure  (  source  .  rej?^iinTn>  : 
declare    source    address, 
reMT^num    byte, 
count  by te  : 

ho  Id    =    Hource ; 
If    not    check*  t€mp(  hSoddr)      then 

hold    =     maek(hold); 
3  igrn6(  reginum)     =     hSbyteCl); 
hold    =    hold    -    h«byte; 

count    =    hSbyte; 

do    case    reg#nuinj 

base    =     .r0i 

base     =     . r  1  J 

base    =     . r2 ; 

end  t 

call     f i 1 l(ba9e,e. 11); 
hold    =    hold    +     1: 
dec*pt0(  reg#nnni)     =     hSbyte  ; 
hold    =     hold    +     1; 

call    roo ve ( ho  Id , base+ 10-coun  t .count )  ; 
end     loadSreg! 

se  tSuptfregs : procedure i 

no shift    =     false: 

call     loadSrearC  ra  ,  0)  ; 

call     loadSreg(  rb  ,  1 )  ; 

call    rlght«jnst  If  y(  0)  ; 

call    r  ight«jU8  t  1  f  y(  1)  ; 
end    se  tilupSregs  ; 


s tepf lns#cnt : procedure( num) ; 
declare    num    byt' 
rc  =  rc+nuin: 

end    9  tepS  InsScnt  ] 


branc  hSab'5io  lute  •'  procedure 
call    9 teptlnsScnt ( 1 ) : 
rc= twoby teoprand    -     1; 

end    branc hSabso 1 u te ( 


address 


ge  tSpr  tCaddr  '•  procedure  (off^e'-     ad-iress; 

declare    off«iet    addreast 

return    prlbMse    +    offset; 
end    ge  tSpr  tSad.l  r  1 

load  :  procedure  (  ;iddr )  : 

declare    addr    address. 

a    based     addr    addr"*','; 
prt5uddr     =     mae»k.(  add  r  ^  ; 
a    -    prtS-^atryi 
e  nA     load; 

9  toreSdec  -  proc^d  ure  (  po  ai^r  <»  . ,]  ^  ^  ;  i  ; 

declare     (  so  urre  ,  des  t  .  J'»'«  t  9-c  i  i,rn  )     address. 

(  fi  m  f  Sts  t  o  ,  a  va  i  1  .<-»  t  o     -     ;:  " b  y  t  e  s  i     b  y  t  ^ 
s    br.sed    soiirr"     add?-«--^«. 


!<SO 


d  based  des  t  addresa , 
deep  I  byte , 

si^Q    bas^d    destS-jiarn    byte; 
If    c hie c k.S  t e mp (  f» )      t he n 

temp  1    =    sjource  ; 
else     tempi     =     mask.!  source  >  : 
leinp2=maskf  de8  t )  ; 
ava 1 l«s  to    =     t2    -    2; 
destSstg'n    =     te7iip2+lj 

t2(l)     =     tun     and    01h;     /'•♦:«rn«k   off     terep    bits    *•' 
90urce=     (  temp  1 ;- temp 1-t 1 )  ; 
des t= temp2- t2; 
amtSsto    =     tl; 
decpt    =     till); 

•^igSbytes    =     ((amtS<»tr,    :*:    2    -    decpt)     +•     1)     /    2; 
If    amtSsito       =     availSsto     theu 
do; 

ca  1  1     fi  I  Hdes  t  ,00h.  t2>  : 
call    mo ve(source,de9t.  t  l-t-2)  ; 
end  ; 
else     if    s  igSbytes    <=    availSsto     then 
do; 

call     move     (  source  .  des  t  ,  t2)  ; 
t emp2    =     dea  t  ; 
t2    =    aval  Us  to; 

t2(  1)     =     (avallSsto    -    sij?«byte:5)     *    2; 
if       deep  t     then 

t2(  1)     =     t2(  1  '     +     I : 
call     warniaif (  '  i  I  '  )  ; 
end  ; 
e  Ise 
do; 

ho  Id    =    des  t ; 
liSaddr    =    eiOlh; 
b«byte(2)     =     leh: 
s  iiorn    =     positive; 
call    error< 'si') ; 
end  ; 
end    atoreSdec: 

store^int: procedure ( des  t , va lue )  ; 

declare    (de8t,valae)     address; 

pf  t9addr=ma3k.(  des  t )  ; 

pr  t  Se  n  t  ry=  va 1 ue : 
end    storeClnt; 

store§str:pfocedure(9oarce,de«t  '  : 
declare     (  dea  t  ,  sonrce  )     addr»t=is, 
s    based    source    address, 
d    based    dest    addr^.s.s: 
If    checkf  tenip(  s)     then 

tempi     =    source; 
else     tempi    =    mask(  source  )  ; 
temp2    =    mask(dest); 
dest    -     terap2    -     t2; 
aoarce    =     tempi    -    tl; 
if     tl    '  =     t2    then 
do; 

call     f  i  IHdest  .20h.  t2)  : 
call    mo  I'c  (  g  o  ar  ce.dest.tl); 
end  : 
e  Ise 
do  ; 

call    rao vp ( soorce , des t .  1 2^  : 
call    warn  Ingr^  '  so  '  >  ; 
end  : 
end    9  toreis  tr  '. 

a  I  loca  te*s  t  r  :  procedure  ; 
If    bra    =    0    then 
do; 

call    i^rr  ir(  '  az  '  ^  ; 
bra    =     10) 


end  ) 
call    pushC«  tnck.(  brn  :  =  bra-*- 1 )  : 
bra    =    brb; 
end    a  1 loca teSs tr ; 

a  I  lo<ia  te'B<lec  :  procedure  ; 
declare    stoi*e    byte; 
If    bra    =    «    then 
do; 

call    error('az'): 
bra    =    '>( 
end  : 
c  tr    =    bra } 

store    =     (  bra+l)/'2+2; 
call    pushSs  tack(  s  tore^  t 
bra    =    3  tore  j 
ara    =    ara    or    O10f>h; 
end    a  1 loca t eSdec ; 

se  tSupSa 1 loc : procedure ; 

prtSaddr    =    mask(ra) ; 

call    popSsi  tno  k; 
end    se  tSupSa  I  loc  ; 

f  J ndSrb: procedure; 

if    checks temp( ara)     then 
rb    =     ra    -    (bra    +    2) ; 

e  l«e    r b    =    ra    —    2; 
f'ud     f  IndSt-b  i 

savSpcb : procedure ; 

if    mo  vp^  Sent    =    6     then 
re  turn; 

call    push««  tack(2)  ; 

call    rao  ve(  pcbptr  ,  ra  ,  mo  veScnt )  ; 

pcbSvalueC  I)     =    ra ; 

ra    =    ra    +    moveScnt; 

ara    '    moveScnt; 
end    savSpcb; 

ansave : proced nre  i 

call    move(  tempi  t -ra-a^8i  ho  Id  , ara)  ! 

ra    ^     tempi i 
end    unsav-f' ; 

ca  lc#row:  procedure  ; 

declare     '  i nde x , nnm, v.aSs Ize . type )     byte, 

(  nuffi*arrays  ,  numSd  im.allocSlen, count,!)     byte 
d    ( 10)     byte; 
type    =    brn:      '«     1- In t . 2-dec , 3-s t r    */ 
call     popSstack; 
numSarrays    =    bra; 
call    popSstack; 
n\tm0d  Im    =    bra  ; 
ca  1  1    pop#«  tac  k; 
V    =     0; 
aSs  ize    =     I ; 
df  nuraS'i  im)     =     1  j 
If    num9dlci    =     t     then 
do  ; 

af*izi?     =    bra    -    brb    +     1: 
V    =    brb  t 
call     pop<9  tack; 
call     popJs  tack ; 
end  : 
e  Ise 

do     index    =     1     to    num§dim! 
I    =     nuiLfdlm    -     Index: 

a  is  ize     -     sJslze     *    'uiiw    '■  -     hm    -    brb    +     i)j 
d(  i  '     -     num    *    d'   i+  P  ; 
V    =     V    *     1.1  rb    *    dM+l): 
call     po  r'^s  t  ack  1 
ca  1  I     pop**  trie  k; 


e  nd  t 
If    type    =     int    then 

call    pushSs  tack(  2^  ; 
e  lae 

a  I  loc91en    =    J>ra  : 
do    count     =     1     to    nuitiSarrays  : 
call     step* InsSc  n  t (  1 »  : 
bra    -    c(  1  >  ; 
bra( 1)     =    c    and    3fh: 
prtSaddr    =    ara    +    prtSbas-^: 

prtSentry    =    ra    or    4<iK)0h:     '  "«    set    addr    bitsi    ■*■■/ 
bra    =     uunSd  Irn; 
if    numSdim    <>     1     then 
do     Index    =     1     to    numSd  im    -  1 ; 
1     =     nuniSd  irn    -     index: 
ra    =    ra    +     1  ; 
bra    =    d(  1)  ? 
end  ; 

ra    =    ra    +    1 ;    , 
bra    =    v; 
ra    =    ra    +     1  ; 
bra    =    a  1  loc*  len; 
if     type    =     int     then 
do: 

bra    =    2: 
ra    =     ra    +     1  ; 
ho  Id    =    ra  : 

ra  =  ra  +  afslze  ^    2; 
h9addr  =  ra ; 
end  ; 
e  Ise 

I f  type  =  dec  1  then 
do: 

bra  =  (bra+l)/2  +  4; 
ra  =  (hold  :=  ra+l)  +  2; 
bra  =  allocSlen; 
do  Index  =  1  to  aSsize; 
call  allocate idee: 
ca  1  1  push«3tn.k(2>  ; 

bra  =  ctr;  /*  reset  to  allocated  length  */ 
end  \ 

call  popSstack.: 
hSaddr  =  ra ; 
end  ; 
e  l»e 

I  f  t >'pe  =  s  t r  then 
do  t 

bra    =    bra    +    3; 
ra    =    fhold     :=    ra    +     1)     +    2; 
bra    =     allocSlen; 
do     index    =     1     to    assize: 
call    a  1  1  oca  t  (?$r(  t  r  ; 
call     pxi3ii«3  tack.f  2)  i 
ara    =     a  r  b ; 
end  { 

call    pop#atack: 
hSaddr    =     ra : 
end  t 
call    9  tep*  ins^'-n  t  (  P  : 
end)     -^-count*/ 
end    ca 1 cSro w; 

c  a  IcJsub : procedure  \ 

declare    arrayJaddr    addres"^  . 

location  nddr'^K?^. 

a*byte    baspd    arrny'^^air    byte, 

aSaddr    based    arrriv*i'ldr    address. 

(   1  ,  num*<l  I  in)     h  y  ♦  r>  . 

offset    addi-'>s«: 
array^nddr    =     mask.''  rn)  ; 
call     p.>pJs  t  .Tc  k; 
offset     =     a  ra : 
niimSdini    =     nJhyte; 


Ti; 


do     1    =    2    to    namSdlro; 

call    popis  tack.: 

arrBtyBadfir    =    arraySaddr    *     1  ; 

off«<iet    =    ara    «    alfbyte     +    offjret; 
end  ; 

arraySaddr    =    arraySaddr    +     1 : 
off9^t    =     (offset    -    a«byto+ I  I     ^    a?byte(l): 
arraySaddr    =    arraySaddr    +    2: 
If     (  loca  t  ion:  =arra>'Saddr  +  o  r  i'-^.j  t  >     >     aSaddr     then 

call    error ( ' ab ' ) ; 
ara    =     location   or    400Oh: 
end    ca  lcSi=ub : 

decremen  t!3b  Ik-' procedure(  num)  : 

declare  num  byte; 

ra  =  blk(  (  blkSleve  1  :=blk«level-nnml  +  1); 

ca  1  1     f  lnd«rb! 
end    decremen t*b Ik: 

adds  In t : procedure (  lntl.lnt2>     address; 

declare    (intl.lnl2)     adlre^s': 

return  intl  +  lnt2; 
end  add«lnt; 

subs  Int  :  procedure  (  intl.  in!2'  n.ldress; 

declare  (intl,int2)  ad'li-'-^?; 

return  intl  -  int2; 
end  subS  Int; 

mu  IS  i  n  t  :  procedure(  int  1  .  Int2)  addr^'ss"  ; 

declar*»  (intl,int2)  address:; 

re  turn  Intl  *     int2; 
e  nd  mu  1 S  1  n  t  ; 

d  i  vS  int:  procedure(  int  1  .  Int2>  adflress  ; 

declare  (  Intl,  int2)  addr*»S3. 

return  Intl  ''  int2t 
e  nd  d  1  v«  i  n  t  ! 


exi  tSlnterp: procedure ; 

call  cr  1  f  : 

call    rao  n3 : 
end    exltSinterpj 

conso  lcSr'»ad  '■  procedure  : 

call    cr I f  ; 

call     pr  i  n  t  c  ha  r  (  '  -  '  )  ; 

<ja  I  1     pr  i  n  tchar  (  '  >  '  )  ; 

call    prlntchar('     '); 

cal 1    readf  .  inpntbufferi ; 

If    buffSspace(  1)     =    coutz     then 
call    exi  tSlnterp; 
nureSread    =    buffSspnces 

conbnffptr    =     .bnffSspacc; 

buf  fSspace(  buf  f  S*rpace+ 1  )     =     eolchar; 
end    conso I eSread ; 

moreSconS Inpat t procedure    byte: 

return    conbuffptr    <      .  bu  f  15- i>nce  (     nuraSread'; 
e  nd    mo  r  e  8c  o  nS 1 npu  t  t 

conso leSiapu tSerror : procedure: 

re    =     rereadaddri     /"*    reset     prr-urrnm    counter    "♦:/ 

call     wBrninqr    ('11'); 

iBToto    errorSexlt;     /*    return     ♦^'->    outer     lf>vpl     t./' 
end    conuo  1  r  S  i  apii  tSerror  ; 

l?e  tSconSc  liar  :  procedure    byte; 

conbuffptr  =  conbuffptr  -  1: 

return    '^onSchnr; 
end    are  t  Sf- ■>  n*c  har  ; 


next*  Input Sc ha r  :  procedure    by  t-?' : 

if     Input  t>-pe     =     O     then    /^     r^nd     from    disk    ^' 
/*       do     forever: 

if    (  buff  S«ipaoe(  i  upu  t  i  n.I»ix)     :=    ge  td  i^kohnr )     =     If     then 
do; 

if    varSb  locks  iJie     Mien 
call     error ('re'); 
e  nd  : 
e  Ise 

return    next  td  iskSc  bar  : 
end       ^y ; 
if     inputStype    =     1     then     '-*<     input     frpm   console    */ 
rettirn    g-e  t  SconSchar  ; 
end    nex  t9  I  npiitSc  bar  I 

ge  tSf  ie Id ; procedure } 
declare    hold    byte. 

del  itn    byte  ; 
f le ld«len^th    =    0; 
do    while     (hold     :=     ne  jtt  <  1  npu  t  ?char )     =     '      ': 

e  nd  ; 
If     Input  type     =    0    then 

Inputptr    =     .bafflspace; 
if     input  type     =     1     then 

inputptr    =     conbuffptr; 
if    ho  I J     <  >     quo  t  e     t  he  n 

de 1 ira    =     '      ' ; 
e  Ise 
do; 

de I Im    =     quo  te  ; 
hold    =     nextS  input  3»ohiir  : 
end  ; 
do    while    (hold    <>     delim)     and    f  ho  Id    <>     eolchar); 
f  ie  ld«  length    =     f  ie  IdS  le  i<g- 1  h    +     1: 
hold    =     nextS  Input  Sc  bar  ; 
end  ; 
e  nd    pre  H  f  i  e  1  d  t 

g^etiintSfield:  procedure  ; 
declare    si^n    byte; 
call    ffetSfield; 
if     InputSchar    =     *-'     then 
do; 

s 1 ^n    -     1  ! 

inputptr    =     Inputptr    +     1: 
f  te  ld*leni?th    =     f  ie  IdSl'-ncth    -     1; 
end  ; 
e  Ise 

if     inputJchnr    =     '+'     then 
do: 

9ign    =    0 : 

Inputptr    =     inputptr    +     i; 
fleld«length    =     f  1  e  Id*  Uugrt  h    -     1; 
end ; 
«  Ise 

9  i  grn    =    0 ; 
call    pushts  tnck(  2)  ; 

ara    =    conver  tt  to#  Int  (  inpn  t  p  it  .  f  le  IdS  lenirth)  : 
If    errorSflng    then 

call    conso 1 eS inputSe rr o r : 
If    s  i ff n    t he n 

ara    =    -ara    and    Obfffb;     ■' '-    s»^  f    neg    bit    r>nd    conv    to    neg    in 
e  nd    ge  t «  i  n  1 1  f  J  i»  I  d  ; 

ffetSstrSfield: procedure: 

call    gro  1 1  f  I  e  1  d  : 

contchnr    =     f  le  Idt  leng  t  h+ I  ; 

inputJptr    =     conbuffptr    -    ••  >  i.:?f  lin  r  : 

InputScbar    =     f  le  IdS  Wmit:*  h  ; 

call     pn<^h»s  tack(  2)  ; 

ara    =    conbuffptr    or    4000h; 
end    gre  tSj>  tr«  r  ie  Id  ; 


ge  tMec#f  le  Id  .' proeedure  : 
ca  11    ge  t«f  le Id  J 
call    pugihS^  tack(  2)  : 

conSchar    =    0;     /*    set    binary    0    as    end    of    '}»■?    "^^ 
if     inpntSchar    =     *+'     then 
do: 

!•  I  gn    =     1  ; 

inputptr    =     inputptr    *     1: 
end  : 
else 
if     InpiitSchar    =     '-'     then 
do; 

5  igrn    =    ♦>! 

inputptr    =     Inputptr    +     1; 
end  ! 
e  Ide 

.-9  i  grn    =     r  J 
call    packSdeo Iraa 1( Inputptr , ra ) ; 
If    errortfflaff    then 

call     oonso leS InputSe rror : 
ra    =    p^r^  two    -     1 ; 

bra(  1)     =    n  i«u    or    0c0h:     /'*    =>'*  f     sign    and     t«mp    hits    */ 
end    ge  tSd^clf  if?  Id  { 

Inl t la  1  Izefexecnte : procedure  j 

s  tackto!.=  3350h; 

mc  d,  re  =  codebase: 

mpr  =  prtbase; 

St,  sb  =  gtackbase; 

ra  =  (rb  :=  3b)  +  2s 

bldSflag    =     false: 
end     ini t ia 1 izeSexecu te : 

/*:se  t    up    machine*/ 

call    pr  in  t  f  .  ■  a  Igo  l-in    in  terpre  ter— vers     1  .  0S  '  )  ; 

call    cr 1 f  : 

call    open«lnt*flle; 

bldSflag  =  true: 

call  Incbuf;  call  incbuf;  /*  skip  codes  ize  f^/ 

prtbaae  =  .memor'y; 

codebase  =  ge tparra  +  pptbase; 

codeptr=codebase ; 

/*load    machine*/ 


do    while    next*char    <>     Tfh; 
if    cur char    >=     128       then 
do; 

call    9  toSchar*  i  nc  : 
call     1  ncbuf ; 
call    s to*c har* Inc ! 
end  : 
e  Ise 

if    cure  ha  r    =    •»  tr    then 
do  \ 

call    s to*char§ Inc I 
t  e  mp l     =    oodeptr; 

char    =     0;     /*    set     initial     length     to    zero    *^ 
call    s  totcharS  I  nc  ; 
do    while    nextSchar    ^^     <^ : 
call     SI  toSc  harS  Inc  ; 
t  1     =     t  1+1  : 
end  ; 

char    =     t  1+1; 
call    s  tofchar*  Inc  : 

char     =     0;     /"^mus  t     mrike    s  t  r     lenght    an    oMr     quantity    ^^ 
call    s t o*chnr* 1 nc ; 
end  : 
e  Ise 

if    cnrf'har    =     int     then 
do; 

call    s  toif  r  harS  1  nc  : 


t 


hold    =    buff    -t-     1  : 

f  leldflengrth    =    0: 

do    while    nextSchar    <>    O; 

f  ie  IdSleni^th    =     fleld«("ncth    +1: 
e  nd  ) 

a    -    conver  tSto»lnf  '  ho  Id  .  f  ie  Id*  lengths  : 
oodeptr    =    codeptr    +    2; 
end? 

e  Isff 

If    cure  ha  r    =    decl     th^n 
d^c !  . 

<jall    9  toSchar*  Inc  J 
call     Irtcbnf  ; 

call    packSdec  ima  I  f  buf  f  ,  ci»<l'*p  t  r)  ! 
codeptr=ptrStwo+l: 
buff    =     ptrfone    +    2: 
e  nd :      • 
e  Ise 
do; 

call    s  toScliarS  Inc  : 

if    (cur char    =     brs  '     or    '.  currhar    =     hsc  >      then 
do; 

call    i?e  tf  t»-.-t»*byt-?«  : 
a    =    a    +    codeba^e; 
call     i  ncSo  ode  p  t  T'S  two  ; 
end  ; 
e  l9e 

If    (cur  char    =     iml)     or    (ciir'-har    =     deb'      then 
do; 

call     incbuf ; 
call    s  to*char*  1  nc  ; 
end ; 
e  Ise 

If    cure  ha r    =     im2     then 
do; 

call     incbuf : 
call    9 toScharSinc  ; 
ca  1  1     Incbuf ; 
call    s  toScharS  inc  ; 
end; 
end ; 
end ; 

stackbase    =    codeptr; 

/»f   start    of     interp    */ 

execute : procedure ; 
do     forever; 

If    roHc.l)     then    z'*    mns  t    h*-     li  t    or     li»-lod    */ 
do  ; 

call     pnshts  taclc(  2>  : 

bra    "^    c(l);     /*     lend     in    reverse    order    */ 
bra(  1)     =    c    and    OfW:     -  *:    niask         bM?        10      */ 

ara    =     (  ara    +    prt*l>a3«>)     or    4000h.     ^*    set    01    addr    bits    */ 
if    r0l(c.2)     then    call     load(ra): 
call    »  t  e  pS 1 ns  tc  n  t  M  1  : 
end  ; 
«  Ise 
do    case    c ; 

/*   9   case  0  no  t  used*/" 
.  t 

/*  1  str  «/ 
do; 

call  pushfs  f  a'-k' 2)  : 
call  9  tep«  InsS.-n  t  (  1  >  : 
re  =  r-c  +  c  +  I  ; 
ara  -    re  or  40')i)h: 
call  9  tep*  1  ns  *o  n  t  f  t  '  ; 
end  ; 


/«   2    Int      x/ 
do; 

call    ptishSs  tackl  2)  ,- 
call    •=>  tepfins*cn  t  (  I  >  : 
ara    =     t  woSby  t^S«^praini  ; 
call    9  tep«ins«cn t •   i '  . 
end  I 

/*    3    xch      */ 
do; 

ho  Id    =    ara  j 
am    =    a p b  : 
a  r  b    =     ho  I  d  ; 
-nd: 

/*    4     lod       f:/ 

call     load( ra) : 

/*    5    deb       •«/ 

do: 

call    9 tepS InsScn t ' I' 
call     dec  remen  t  Sh  i  k.1  c 

end  ; 

/*    6    drap    */ 

call    cr  1  f I 

/*    7   xit    ^-^ 

rp  turn; 

y*   8   aid    «/ 
do: 

call     ae t$up<a 1 loc ; 

call     a  1  1  oca teSdec ; 

prt**n(ry=ra    or    4O0t'»h; 
end  ) 

/*    9    a  is    *x 

do; 

call  se tSupSa 1 loc : 
call  a  1  loca teis tr ; 
prtSentry=ra    or    40<^0h; 

end  : 

/«10  aid  «/ 
do; 
call  se ttupta 1 loc ; 

call  a  1 loca teSdec : 

pr  t*en  try=  ra  or    40OOh; 

call     puflhSs  tack(  2)  ; 

bra    =    c  t r ; 
end  ; 

Z*!!    a  is    «/ 

dot 

call    settupSalloc! 
«Jall    allocate •s'tri 
prt»entry=ra    or    400'^h: 
call     pnshftit  tacK.^  2)  : 
ara    =    arbt 

end  ; 

/*12   adl    *y 
Ho; 

call    fe  t*iipf  neg'; 

arb  =  adds  In t ( arb . nra )  ; 

call  c  iK^cktn"  jr  i 

call     pop*ff  tnck.; 
end  ; 

/*13    add    *x 
do: 


call    se  tSup8re<?s  :  •*    puts    values    of     top     two     Itens    ^^■ 

''*     in    reg<)    n  :iil     re<?l     respec  t  i  ve  1  y:=: 
ca  1  1    a  I  I  lg:n: 
call    add ; 

call    cpySreg2Soii*»  tao  k.; 
end ; 

/*14    sbi    «/ 
Jo  ; 

call    setSupSnoi; 

arb    =    stibSint(arb.arn': 

call    checkSneg; 

call     pop*9  tack; 
end  1 

/*    15    sbd    *.'' 
do  ; 

call    se  tSuptfrp^st  ;         "'-    puts     values    of     top     two     items    *- 

^  ;*     in    regO    aii'l     re^l     respec  t  i v>»  ly''  ■ 
call    all ign; 
call    CO mp 1 1 me  n  f  (  0 >  : 
if    s  ignO     then    s  1  giiO    =     tiogativo; 
©  l.«»e    3  ignO    =    pos  )  t-  i  <-o  ; 
call    add ; 

call    cpy*reg2Sons tack: 
<»nd  : 

/*16    rap!    ■*■' 
do  : 

call     setSupSnear; 

arb    =     ran  H  In  t  (  arb  ,  am)  : 

•  ■a  1  1    checkSnejf : 

'■all     popSs  tack; 
e  nd  : 

/•»^17    mod    */ 
do: 
call    "^e  tSupSrejT'' ;        ■•=    puts    values    of     top     two     items    *^ 

'' K     in    reg0    and    learl    respectively*^ 
declare     (1,  Index)     h^te; 
call    se  t«8mu  1  tSd  I  v; 
.lecpt2    =    decptO    +    de--pfl: 
1    =     10; 
do     i  ad  e  K    =     1     to     10; 

call    mul  t  lply(  rlM  •=  1-1)     and    0fh)  ; 
call     raul  t  Ip  ly(  shrf  r  1(  i  )  ,  4)  )  ; 
end ; 

call    cpySregr2Sous  tac  k; 
end  I 

/*18   d-wi    */ 
do; 

call    set*up*neg:: 
arb    =     d I v* lnt(arb,ara) ; 
call    check*negj; 
call    pop#9  tack; 
end  ; 

y*l^    dvd    «/ 
do; 

call     se  tSupSreg-s  ;        .'^    puts    values    of     top     two     1  tem^a    *' 

^^-     in    reg0    and    regrl     respectively'- 
ca 1 1    divide; 
call    c  pySreg2?ons  tn<'k; 
end  J 

/*    not    used    «/ 

1  ■ 

/«21  -f^ 

^*    not    uied    «x' 

! 


17B 


I 


/*22    neg    «/ 
do; 

if    check.Siiit(  fira)     then 

ara    =    -ara    and    0bf'^fh- 
else     If    checks  temp  (  ara  '      then 

ara    =     ara    xor    OI'^''"!;        ^chang'e    5  i  gn    bit*/ 
e  Ise 

do  ^ 

ho  Id    =     mas  k(  ra  1  ; 
hSaddr    =    hSadJr    xop    JJlOOh. 
•  ud  ; 
end  < 

/*23   c 1 1    «/ 

/*    not     Implemented    */ 


/«24    c 12    */ 

/*    not     Implemented    */ 


/*25    dec!    */ 
do  ; 

call    pnshSs  tack(  2)  : 

call    s  tepS  insScn  t  (  1)  : 

rc  =  rc:    +    c    -^    2; 

ara    =    re    or    4000h! 

call    s tepSin9  9cnt(  1 )  ; 
end  ; 

/*26    pop    */ 

call     popSd  tack; 

/'*27     Iral    */ 
do  5 

call    pnshSn  tack(  2)  : 

call    s tepSlnsScnt ( 1 ) ; 

ara=c ; 
end  ; 

/«28    !m2    */ 
do: 

call    pushSs  tack(  2)  : 

■  •all    9  1ep«ins»cnt(  1 )  : 

?>ra  =  c(  1)  ;        /*     load     in    reverse    */ 

hra(  1  ) =c { 

call    9 tep«in9«cnt (  1)  ; 
end  ; 

/*29      */ 

/*    not    Ufsed    «/ 

/*30      -ex 

/*    no  t    nsed    *^ 


/*3I    cat    */ 

call    concatenate: 

/«32    b 1 1    ^/ 

hik' b  IkflevA  1  :  =blk«leve  1+n     =     ra 

/«33    bid    */ 

call     decrement •!>  1  k (  1  '  j 

/5':34    brs    */ 

call     bra  nc  hSabso lute ; 

-^«35    b«c    «/ 

If    bra    -     0     th«n 
<-n\{     hrnnr  hSn  b«M  1 'I  t e  ; 


''       e  is©   •■■ 
'      do-j    . 

call    9  tep«ln8»cnt':2) 
call    popSstack; 
end  t 

X*36    1*9*/        •    ;     ;     : 
do  J      •       .  ' 

i'f    brb    <    hra.    then 

brb'lf 
else    brb=0; 
call     popSstH'Ck^ 
end ;  • 

/«37   dlsi»    */ 

/■*    not     implemented    ^Z 

'  t 
/*38    alma    */ 
/*    not     Implemented    */ 

X 
/*39    gjtr    */ 
do; 

If    brb    >     bra    then 

brb=l! 
e  Ise    brb  =  0? 
call     popSstack; 
end  ! 

/*4©    dgtr    ■*■/ 

/*    not     implemented    */ 

/'«41    9i:tr    ■*■/ 

/*    not     implemented    */ 

/«42    eql    «/ 
do; 

if    brb    =    bra    then 

brb=lj 
e lae    brb=0t 
call    popSa  tatikr 
end  5 
/'«43   deql    */ 
/*    not     implemented    */ 

t 
/'*44    seql    */ 
/*    not     implemented    */ 


/*43    neg    */ 
do  J 

if    brb.  <>    bra    then 

brb    =     1 ! 
e Ise    brb    =    0; 
call-  pop^stack; 
end  ( 
/'*46   dneir   */ 
/*■    not     implemented    */ 

« 
/'*47   dae^   ^'^        . 
/«    not     Implemented    «/ 

do« 

If    brb    >=    bra    then 

brb    a     1 t 
e  J«e    brb    =    0  r 
ca  1  1    pop»9  t ackt 

end  t 


/»49   dgreq   «/     . 

/*    not     Implemented    */ 

X 
/*50    sffeq   «/ 
■^*    not     Implemented    */ 


180 


/«5l'    leq  ^z' 
do  V 

If    brb    <*    bra    then 

brb    =1? 
e  l9«»    hrb    =    0; 
cal  1    pop«s>  tack: 
'        e  nd  5 
/*52   d  leri    */ 
/*    not     implemented    */" 

/^rSa   aleq   */  ;  , 

/*    no  t     Implemented    */ 

; 
/«54    inot    */ 

do  ! 

If    brd    =    0    then 

bra    =     1 : 
else    bra    =    9; 
e  nd  ; 
/*55    dno  t    */ 
/*    Hot     Implemented    */' 

t 
/*56    snot    «/ 
/*    not     Implemented    */ 

/^57    land    */ 
do; 

If    (bra=0)    or    (brb=0)     then 
brb=  1; 
e Ise    brb=0; 
call    popSstack.; 
end  t 
/t58    dand    */ 
/*    not     implemented    */ 

/«59   sand    */ 

/*    not     Implemented    */ 

/♦e®    lor    */ 
do  I 

if    i:bra  =  0)     and    fbrb  =  e)     then 

brb=  1 ; 
else    brb*05 
ca  1  1    popSa  tack; 
And  t 
/«<51    dor    */ 
/*   not     Implemented    */ 

« 
/«62  sor    */ 
/*    not     Implemented    */ 

? 
/«63    wlc    */ 
do; 

call    vrr  I  te«lnt(  ara,0)  ; 
o  a  1  I    po  p9fl  tack: 
end  ; 

/'*64   wdc    *y      . 
dot 

If    checks  temp(  ara  )     then 
call    ♦frite#dec(ra.^): 
else 

call    write  «d<»c(  map  k(rn),0)) 
era  1 1    popSs  tack: 
end  ; 

/*65    w»c    *^ 
do: 

If    c  he  c  k*  t  e  mp ( «  r  a )      t  he  n 
call    writef3tr(ra,0): 

e  Tse 

call    wr  i  tetsi  tr<  mask(  ra)  .  0) 
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ca  1  t    pop9«  tack: 

call    wrl  te«tO«cllgk(0)  ; 

/*67    wld    */ 

call    v/rlte»to«d  lsk(  1)  ; 

/^eO   wrtd    */ 

call    wr  1  te«to*dlsk(2)  ; 

/*69   sbr    */ 
do: 

arb    =    ara    -    arb; 
ca  1  1    poptfs  tack; 
end? 

/*70  bra  «/ 
do; 

fc  =  codeSbase  +  ara; 

call     popSs  tack; 
end; 

/*71    row  */ 

call    ca  Ictfro  vr; 

/*72   «nb    «/ 

call    c  a  1 c  8s  ub  t 

/«73    rcl    «/ 

call    se tSlntVr le Id; 

/X74.  red    «/ 

call    gre  tSdectf  le  Id; 

/'*79    rca    »/ 

call    ge f»a tr«f le Id  I 

/*76    rdl    «/• 
do  I 

input  type    =    0; 
call    ^e tSlntSf le Id : 
<*nd  ; 

/'«77    rdd    */ 
do  ; 

Inpat  type    =    0 j 
call    f?e  t»dec«f  le  Id  ; 
end : 

/*78  rds  */ 
do  t 

Inpat type  =  6; 
call  g-et««  trifle  Id; 
.      «  nd  t 

/*'t^   rcn  */ 
do5 

input  type  =  1 ; 
'■  rereaJaddr  =  re; 

call  cohsole§rendi 
end  ; 

/*80    ecr    *■/ 

If    mor^tcont  Inpu  t     then 

call    Conso  le*  Inpn  1 3*>rror  ! 

/'«81    all    */ 
do  t 

call     9toretin»(r1>.ara): 

rb    =    rb    -    2; 
end  ; 
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/'*32  sdl    */ 
doi 

call    » toreidecC ra . rb) i 
rb    i    rb    -    2j 
©  n<l ; 

/«83   ag  i    «/ 
do  J 

call    s tore#9 tr( ra . rb) ! 
rb    =    rb    -    2i 
end  : 

/*84    sld    */ 
do; 

call    g  toreS  In  t  (  I'b  ,  ara)  t 

call    pop^stacki 

call    pop^stack; 
end  i 

/*85  sdd  */ 

do; 

call  9  toreSdec ( ra , rb)  ; 

call    popSs  tack: 

call     pop8stack; 
end  ; 

/«86    asd    «/ 
do  t 

call     store  9m tr<ra,rb)  ; 

call    popSstack; 

call     popSs  tack: 
end  ; 

/«87    opn    *^ 

call    diskSopen; 

/*88  c Is  */ 
do; 

call  se tSf 1 leSaddr t 

c  a  1  I  d 1 s  kfc lose: 

call  popSstack; 
I.    .     *°**  » 

/«89  rdb  «/ 

y*    ready  sequential  block  *-^ 
do  J 

call  ae tnptdlskSIo t 
call  se tSeo f Ss tack; 
end : 

/*9e   rdf    */ 

/*   ready   random   block  «-^ 
do  I 

call    de tuptd IskSlo ; 
call    rekndom4«e  tnpi 
call    tie  tSeoffs  tack: 
end  ; 

yi^^l    edr*/ 

/■*    ead    of    record    for    read    */' 
/■*.    advances     to    next     line     feed    */ 
do  J 

1/    var*b  lockSs  ize    then 

do    while    ge  ts»d  iskSchar    <>     If; 
end; 
call    s torefrec^p tr » 
end  ; 

/*92  edw  -■);/ 

/*  end  of  record  for  write  «/ 
do  I 

If  --^nrtb  lock*"*  lz»  t  h'- n 
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do    while    bytesSwr « tten    <     (b looks Ize    -    2)? 

cftll    wr  I  teSaSbyte!:  ■      '); 

end ; 
call    write •afbyteCrr): 
call    vi*lteSa«by(:e(  !  f )  : 
Call'  s  toreSrecSpl  r  4 
*nd  J 

/*^(j   pro    xy 

,  do;         .-     •■^      ; ' 

Btaeh^op    =    stacktop    -    2i 
f^tSaddr    =    re     ; 
re    =    ara    +    codebase; 
call    pop*9tack; 
'end: 

do  ; 

declare    (  I ,  num)     bytri  ; 
pcbptr    -    inask(ra)  ; 
call    popSatack; 
mo  ve  tfcnt    -     arat 
call    pop«s  tack; 
If    ara    <>     0    then 
do; 

ho  Id    =    ra  ; 

couitter    =    2    *    ara    +     1; 

do     1     -     I     to    countt'  r ; 

call    pop-fsta-'k: 
end  ; 

num    =    ho  Id    -     ra     : 
if    (tempi     :=    gtacktop    -    nutn)     <=    ra     then 

ca  I  1    error (  ' mo '  '  ; 
call    mo  ve(  ra  +  2.  t*>n;p  1  .  num)  ; 
call    f  1  1  1(  templ-2..^0h.2)  ; 
e  nd ; 
e  Ise 

call    pop#s  tac  k: 

b  1  k(  b  Ik  1  e  ve  1  :=  b  1  k  1  e •(.-?•  1  +  1)  =  ra  ; 

if    pcb«valae(l)     =    <^    then 

pcbSva  lue(  1 )     =     i  -. 
e  l»e 

ca  1  1    sav^pc  b  : 
end ! 

/X9S    »v2    «/ 
do; 
dec  lare     i    byte . 

parmScount    a'ldress; 
tad  1    =    ra ; 
tad2   =    rb; 

tadS.ra    '    stacktop    -    2; 
rb    =    ra    -    2; 
parm^count    =    ara; 
call    popSstack; 

pcbptr    =    pcbptr    +    4    +    parmScount    *    2> 
do     I    =     1     to    parroSconja  t  : 
test  value    =     ara  j 
call     popSstack; 
If    testvalne    =     iit     then 

call    storeSinf'   . po bp t r , ara )  : 
else 

If     testvalye     =     der  i     then 

call     3  t  o  reSPJe  o  '  i-a  .  pcbp  t  r  )  ! 
e  lae 

call     «torr>.S<jtr(rn..pchptrJ: 
call    popSs  t  a<'  k; 
pf~liptr    =     prbptr    -    2: 
e  nd  t 

ra    =     tad  1  ; 
rb    =     tad2; 
tada    =     0: 
end  ; 


'.  B4 


/*96   una    */' 

do; 

ho  14'   =    nnskCra); 
retS'VHlue    =    hWaddr : 
call    decrementSb  Ik'   I  •  i 
if    h«addr(  1)     <  >      1      th-:: 

ca  1  1    nnsave ; 
e  l9e 

h«addr(  J)     =     «*: 
call    decrementShlkfl-; 
call     p«eh»«tack.t2): 
If    checkllnt  (  re  t«-vT<  1  >i<:*">     then 

ara    =    ^etSvalue; 
e  la* 
do  ; 

t e mp  1     =    ma g>k(  .r--'1?vt5  In**)  ; 
call    mo  ve  (  t  f mp 1     -     fl,ra,tI+2): 
ra    =    ra    +     t  I  ; 
bra( 1)     =     bra( 1)     or    OoOh; 
end; 
end  : 

/'«97    rtn    «/ 
do  » 

rc    = .re  t^addr ; 

staoktop    =    stacktop    -^    2; 
end  ; 

end;       /*«nd    case*/ 

call    8  t  e  p«  i  ns  f  c  n  t  (  1)  ; 

errorSf  laa:    =     false; 

end;       /*    of    do     for    ever    ^-^ 

end    execu  t e  ; 

ma  i  a  1  1  ne  •' 

c  a  1  1    c  r  1  f  ; 

call     ini t ia 1 IzeSexecn te ; 

eofexit".       /*    on    end    of    file    of    ctirrent    disk    file    come    here    */ 

errorexit:        z^*:    reg^roup    on    couaoIo     input    err'^^    '*y 
call    execute; 
ca  1  1    ex  1  t;?  interp; 

eo  f  . 


ib: 


LIST  OF  REFERENCFS 


t.   Aho/  A.  V,  and  S.  C.   JoHnson,   LR   Parsina,   Computinq 
SurvevSf  Vol.   6  Vo.  ?,     June  1974. 


?.  Craiq^  Alan  S.  MTCRU-CnBOL  An  Imp  1  e-nen  t  a  t  i  on  of  Navv 
Stanaard  Hyco-Cobol  for  a  M i c roorocessor-RaseH 
Comoufep  System,  ^■  asters  ThesiSf  ^'ava1  Postgraduate 
School/   March  1977. 


3.   De^organ*  R.  M,   and   ot^^ers   'Modified   Perort   on   the 
Algorithmic  Lanauage  ALGOL  60. 


4.  Diaital  Research,  An  Introduction  to  CP/M  Features  and 
Facilities,  197o,  Box  S7"^,  "^acific  Grove,  CA., 
939S9. 


5,   Diaital  Research,  CP/M  Interface  Guide,  197b. 


6.  Eubanks,  Gordon  F.  Jr.  A  N^i  c  foorocesso  r  I  rrp  1  ef^en  t  a  t  i  on 
of  Extended  dasic,  ^asters  Thesis,  ^'aval 
Postgraduate  Sc*^ool,  Hecen^ber  1976. 


7,   Feldf^an,  P.  and  Ruag,  T.,  "bASTC   Ti-^ing   Comparisons", 
Kilobaud,  Issue  nh,    o.  66-69,  June  \977, 


P.  Tntel  Corcoraticn,  800°^  and  oOftO  PL/M  P  roy  ramrr  i  nn 
Manual,  1975,  iOoS  riow<<»rs  Ave,  Santa  Clara,  CA., 
95051  . 


9,   Intel  Corporation,   flO^O   Simulator   Software   Packaae, 
197a 


10.  Naval  Pos  t  oraduat  e  School  Reoort  ^iPS-53KD7^  llA, 
ALGOL-E:  An  experimental  Approach  to  the  study  of 
prooramming  lannuages,  hy  Gary  A.Kildall,  7  January 
197? 


11.   Maur,  °.  (ed.j,  "Repor^   on   the   Alaoritnmic   Lanauage 
ALGOL   6U",   Comm.  AC",  Vol.  3,  No.  5,  ^'av  I960,  op. 


\^b 


a99-3ia. 


12.  PEOROSn,  L.  R.  8w  ML80:  A  Structured  K'acH  i  ne-Or  i  en  t  ed 
MicroccTiout^r  Prografrmina  L.  anguaaef  Masters  Thesis^ 
Naval  Postgraduate  ScHooW  Monterey^  CA,  December 
197S. 


13.  Strutvnskw  Kathryn  B.  Information  on  the  C°/^ 
interface  Simulator/  internally  distributed 
technical  note. 


1^.  University  of  Toronto*  Comouter  Systems  Research  Grouo 
Technical  Pecort  CSPG-a,  "an  Efficient  LALt^  Parser 
Generatorr"  Dy  W.  R.  Lalonge/  Aoril  1971. 


15.  wan  Wiinaaarden,  A.,  B,  J.  Mallioux/  J.  F.  L.  ^eck.,  C. 
h.  A,  Koster*  "Report  on  the  Algorithmic  Language 
ALGOL  oP",  Numer.   ^'ath.  Vol. la,  1969. 


16.  Wirth,  N.,  C.  A.  R.  Hoare* 
Developments  of  ALGOL"/ 
1^66/  pD.  at3-a32. 


"A   Contribution   to   ^  h(^ 
CASW,   Vol.9,  Mo.  '^,     June 


1«7 


INITIAL  DISTRIBUTION  LIST 


1.   Defense  Documentation  Center 
Came  ron  Stat  ion 
Alexanaria^  Virainia  ?23iy 


No .  Copi  es 
2 


^,       Librarvf  Code  0^\2 

Naval  Postgraduate  School 
Monterev/  California  ^3940 


3,   Department  Chairman^  Code  52 

Department  of  Comouter  Science 
f^aval  Postgraduate  School 
Monterev/  California  Qioan 


4,   Assoc  Professor  harw    &,  KildaH,  Code  52Kd 
Department  of  Computer  Science 
iNiaval  Postgraduate  School 
Monterevf  California  Q39an 


5.   LCDR  Stephen  T.  holl/  USN,  Code  52H1 
Department  of  Computer  Science 
Naval  Postgraduate  School 
Monterevf  California  93^40 


o.   Microcomputer  LaDoratorv/  Cede  52ec 
Department  of  Comouter  Science 
IN  aval  Postgraduate  School 
Monterevf  California  ^^i^an 


7.   LCDR  John  P.  FJvnn,  USN 

Fleet  Air  Reconnaissance  Sguadron  One 

NAS  Aaana,  Guam 

FPO  San  Francisco  96faOl 


8.   LT  ^ark  o.  ^^oranviMe/  dSM 
1Q109  Creeksi de  PI  ace 
Salinas,  California  93906 


108 


20  JUH  7# 

30  JUN78 

14  FLbQZ 


2Hk29 


Thesis  ,172295 

F526    Flynn 

C.I  ALGOL-M;  an  imple- 
mentatJon-  of,  a  high- 
level  block  struc- 
tured language  for.  a 
microprocessor-based 
computer  system, 
20JUM7e  2UU29 


CO  JUN  7P 
-^4  F£5  62 


i  ;?  i'  i*  6 
S  1  2  i  5  o^ 


I 


Thesis  172295 

F$26    Flynn 

c.l  ALGOL-M;  an  imple- 
mentation of  a  high- 
level  block  struc- 
tured language  for  a 
microprocessor-based 
computer  system. 


thesF526 

ALGOL-M  : 


3  2768  001  96812  6 

DUDLEY  KNOX  LIBRARY 


'"^^ 


r 


-^ 


